Changeset 1705

Timestamp:

Nov 2, 2015 2:28:56 PM (9 years ago)

Author:

maronga

Message:

bugfix in write_var_list (restart runs not possible)

Location:

palm/trunk/SOURCE

Files:

• surface_layer_fluxes.f90 (modified) (2 diffs)
• write_var_list.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_layer_fluxes.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Typo removed
 !
 ! Former revisions:
@@ -136 +136 @@
     INTEGER(iwp) ::  i            !< loop index x direction
     INTEGER(iwp) ::  j            !< loop index y direction
-    INTEGER(iwp) ::  k            !< loop indey z direction
+    INTEGER(iwp) ::  k            !< loop index z direction
 
     INTEGER(iwp), PARAMETER     :: num_steps = 15000  !< number of steps in the lookup table

palm/trunk/SOURCE/write_var_list.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: two lines required swapping
 ! 
 ! Former revisions:
@@ -278 +278 @@
     WRITE ( 14 )  conserve_volume_flow_mode
     WRITE ( 14 )  'coupling_start_time           '
+    WRITE ( 14 )  coupling_start_time
     WRITE ( 14 )  'constant_flux_layer           '
     WRITE ( 14 )  constant_flux_layer
-    WRITE ( 14 )  coupling_start_time
     WRITE ( 14 )  'current_timestep_number       '
     WRITE ( 14 )  current_timestep_number