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

Timestamp:

Oct 19, 2017 3:36:10 PM (6 years ago)

Author:

Giersch

Message:

Restart runs with the usage of the wind turbine model are possible now. Further small at reading/writing restart data

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! stg_read_restart_data is called in stg_parin in the case of a restart run
+! 
+! 2259 2017-06-08 09:09:11Z gronemeier
 ! Initial revision
 !
@@ -194 +197 @@
 !-- Public interfaces
     PUBLIC  stg_check_parameters, stg_header, stg_init, stg_main, stg_parin,   &
-            stg_read_restart_data, stg_write_restart_data
+            stg_write_restart_data
 
 !
@@ -659 +662 @@
 !-- on
     synthetic_turbulence_generator = .TRUE.
+
+    IF ( TRIM( initializing_actions ) == 'read_restart_data' ) THEN
+       CALL stg_read_restart_data
+    ENDIF
 
  10 CONTINUE