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

Timestamp:

Oct 24, 2017 1:49:46 PM (7 years ago)

Author:

Giersch

Message:

Bugfixes for restart runs

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Definition of a new function called stg_skip_var_list to skip module 
+! parameters during reading restart data
+! 
+! 2563 2017-10-19 15:36:10Z Giersch
 ! stg_read_restart_data is called in stg_parin in the case of a restart run
 ! 
@@ -179 +183 @@
 
 !
+!-- Skipping of parameters for restart runs
+    INTERFACE stg_skip_var_list 
+       MODULE PROCEDURE stg_skip_var_list
+    END INTERFACE stg_skip_var_list
+
+!
 !-- Reading of parameters for restart runs
     INTERFACE stg_read_restart_data
@@ -197 +207 @@
 !-- Public interfaces
     PUBLIC  stg_check_parameters, stg_header, stg_init, stg_main, stg_parin,   &
-            stg_write_restart_data
+            stg_write_restart_data, stg_skip_var_list
 
 !
@@ -670 +680 @@
 
  END SUBROUTINE stg_parin
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Skipping the stg variables from restart-file (binary format).
+!------------------------------------------------------------------------------!
+   SUBROUTINE stg_skip_var_list 
+        
+      IMPLICIT NONE
+            
+      CHARACTER (LEN=1)  ::  cdum
+      CHARACTER (LEN=30) ::  variable_chr
+            
+      READ ( 13 )  variable_chr
+
+      DO  WHILE ( TRIM( variable_chr ) /= '*** end stg module ***' )
+
+         READ ( 13 )  cdum
+         READ ( 13 )  variable_chr
+
+      ENDDO   
+            
+   END SUBROUTINE stg_skip_var_list