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

Timestamp:

Jun 12, 2018 7:03:02 AM (6 years ago)

Author:

Giersch

Message:

New vertical stretching procedure has been introduced

File:

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

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! New parameters concerning vertical grid stretching have been added
+! 
+! 3004 2018-04-27 12:33:25Z Giersch
 ! precipitation_rate_av removed
 ! 
@@ -380 +383 @@
        CALL wrd_write_string( 'dz' ) 
        WRITE ( 14 )  dz
-
+       
        CALL wrd_write_string( 'dz_max' ) 
        WRITE ( 14 )  dz_max
@@ -386 +389 @@
        CALL wrd_write_string( 'dz_stretch_factor' ) 
        WRITE ( 14 )  dz_stretch_factor
-
+       
+       CALL wrd_write_string( 'dz_stretch_factor_array' ) 
+       WRITE ( 14 )  dz_stretch_factor_array
+       
        CALL wrd_write_string( 'dz_stretch_level' ) 
        WRITE ( 14 )  dz_stretch_level
 
+       CALL wrd_write_string( 'dz_stretch_level_end' ) 
+       WRITE ( 14 )  dz_stretch_level_end
+       
+       CALL wrd_write_string( 'dz_stretch_level_start' ) 
+       WRITE ( 14 )  dz_stretch_level_start
+       
        CALL wrd_write_string( 'e_min' ) 
        WRITE ( 14 )  e_min