Changeset 345 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jul 1, 2009 2:37:56 PM (15 years ago)

Author:

heinze

Message:

In case of restart runs without extension, initial profiles are not written to NetCDF-file anymore.

File:

• palm/trunk/SOURCE/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Current revisions:
 ! -----------------
+! +output_for_t0 
 ! translation error of actual -> current revisions fixed
 ! +q* in dots_label, dots_unit. increased dots_num respectively
@@ -931 +932 @@
     INTEGER, DIMENSION(dots_max,0:9)   ::  id_var_dots
 
+    LOGICAL ::  output_for_t0 = .FALSE.
 
     SAVE