Changeset 2776 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

Jan 31, 2018 10:44:42 AM (6 years ago)

Author:

Giersch

Message:

Skipping of module related restart data changed + adapting synthetic turbulence generator to current restart procedure

File:

• palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90 (modified) (10 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Variable synthetic_turbulence_generator use_synthetic_turbulence_generator has
+! been abbreviated + syn_turb_gen_prerun flag is used to define if module 
+! related parameters were outputted as restart data 
+! 
+! 2716 2017-12-29 16:35:59Z kanani
 ! Corrected "Former revisions" section
 ! 
@@ -83 +88 @@
     USE control_parameters,                                                    &
         ONLY:  initializing_actions, message_string,                           &
-               synthetic_turbulence_generator
+               syn_turb_gen, syn_turb_gen_prerun
 
     USE cpulog,                                                                &
@@ -104 +109 @@
     IMPLICIT NONE
 
-    LOGICAL :: velocity_seed_initialized = .FALSE.           !< true after first call of stg_main
-    LOGICAL :: use_synthetic_turbulence_generator = .FALSE.  !< switch to use synthetic turbulence generator
+    LOGICAL :: velocity_seed_initialized = .FALSE.  !< true after first call of stg_main
+    LOGICAL :: use_syn_turb_gen = .FALSE.           !< switch to use synthetic turbulence generator
 
     INTEGER(iwp) :: stg_type_yz        !< MPI type for full z range
@@ -221 +226 @@
 !
 !-- Public variables
-    PUBLIC  use_synthetic_turbulence_generator
+    PUBLIC  use_syn_turb_gen
 
 
@@ -241 +246 @@
     IMPLICIT NONE
 
-    IF ( use_synthetic_turbulence_generator )  THEN
+    IF ( use_syn_turb_gen )  THEN
 
        IF ( INDEX( initializing_actions, 'set_constant_profiles' ) == 0  .AND. &
@@ -288 +293 @@
 !-- Write synthetic turbulence generator Header
     WRITE( io, 1 )
-    IF ( use_synthetic_turbulence_generator )  THEN
+    IF ( use_syn_turb_gen )  THEN
        WRITE( io, 2 )
     ELSE
@@ -665 +670 @@
 
 
-    NAMELIST /stg_par/   use_synthetic_turbulence_generator
+    NAMELIST /stg_par/   use_syn_turb_gen
 
     line = ' '
@@ -685 +690 @@
 !-- Set flag that indicates that the synthetic turbulence generator is switched
 !-- on
-    synthetic_turbulence_generator = .TRUE.
+    syn_turb_gen = .TRUE.
 
     IF ( TRIM( initializing_actions ) == 'read_restart_data' ) THEN
@@ -738 +743 @@
        SELECT CASE ( TRIM( variable_chr ) )
 
-          CASE ( 'use_synthetic_turbulence_generator ' )
-             READ ( 13 )  use_synthetic_turbulence_generator
+          CASE ( 'use_syn_turb_gen' )
+             READ ( 13 )  use_syn_turb_gen
           CASE ( 'mc_factor' )
              READ ( 13 )  mc_factor
+          CASE ( 'syn_turb_gen_prerun' )
+             READ ( 13 )  syn_turb_gen_prerun
 
        END SELECT
@@ -762 +769 @@
     IMPLICIT NONE
 
-    WRITE ( 14 )  'use_synthetic_turbulence_generator '
-    WRITE ( 14 )  use_synthetic_turbulence_generator
-    WRITE ( 14 )  'mc_factor           '
+    syn_turb_gen_prerun = .TRUE.
+
+    WRITE ( 14 )  'use_syn_turb_gen              '
+    WRITE ( 14 )  use_syn_turb_gen
+    WRITE ( 14 )  'mc_factor                     '
     WRITE ( 14 )  mc_factor
-
-    WRITE ( 14 )  '*** end stg module ***            '
+    WRITE ( 14 )  'syn_turb_gen_prerun           '
+    WRITE ( 14 )  syn_turb_gen_prerun
+
+    WRITE ( 14 )  '*** end stg module ***        '
 
 END SUBROUTINE stg_write_restart_data