Changeset 336 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Jun 10, 2009 11:19:35 AM (15 years ago)

Author:

raasch

Message:

several small bugfixes; some more dvrp changes

File:

• palm/trunk/SOURCE/read_var_list.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! dt_fixed is read into a dummy variable.
 ! Output of messages replaced by message handling routine.
 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 
@@ -77 +78 @@
     CHARACTER (LEN=10) ::  binary_version, version_on_file
     CHARACTER (LEN=30) ::  variable_chr
+
+    LOGICAL ::  ldum
 
 
@@ -266 +269 @@
              READ ( 13 )  drag_coefficient
           CASE ( 'dt_fixed' )
-             READ ( 13 )  dt_fixed
+             READ ( 13 )  ldum   ! restart files created before rev 333
+                                 ! contained dt_fixed by mistake; it is still
+                                 ! read here in order to allow usage of these
+                                 ! older restart files; can be removed in a
+                                 ! later version
           CASE ( 'dt_pr_1d' )
              READ ( 13 )  dt_pr_1d