Changeset 3003 for palm/trunk/SOURCE/write_restart_data_mod.f90

Timestamp:

Apr 23, 2018 10:22:58 AM (6 years ago)

Author:

Giersch

Message:

Bugfix: W* and Z_I in the first line of the run control file of restarts correspond now to the values in the last run control output line of the previous run

File:

• palm/trunk/SOURCE/write_restart_data_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! z_i is also written out to use the last known inversion height from the 
+! initial run as the first inversion height which is written into the
+! run control file 
+! 
+! 2956 2018-04-10 11:01:03Z Giersch
 ! spectrum_x and spectrum_y have been moved to global data
 ! 
@@ -126 +131 @@
        USE statistics,                                                         &
            ONLY:  statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max,    &
-                  v_max_ijk, w_max, w_max_ijk
+                  v_max_ijk, w_max, w_max_ijk, z_i
 
        USE user_write_restart_data_mod,                                        &
@@ -900 +905 @@
        WRITE ( 14 )  zeta_min
 
+       CALL wrd_write_string( 'z_i' ) 
+       WRITE ( 14 )  z_i
+
 
 !    
@@ -915 +923 @@
 !-- If required, write restart data for turbulence generator.
        IF ( syn_turb_gen )  CALL stg_wrd_global
+
 !
 !-- If required, write restart data for gust module.