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

Timestamp:

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

Author:

Giersch

Message:

Bugfixes for restart runs

File:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Definition of a new function called wtm_skip_var_list to skip module 
+! parameters during reading restart data
+! 
+! 2563 2017-10-19 15:36:10Z Giersch
 ! Restart runs with wind turbine model are possible now. For this purpose, two 
 ! new subroutines wtm_write_restart_data and wtm_read_restart_data had to be 
@@ -377 +381 @@
     END INTERFACE wtm_parin
 
+    INTERFACE wtm_skip_var_list 
+       MODULE PROCEDURE wtm_skip_var_list 
+    END INTERFACE wtm_skip_var_list
+
     INTERFACE wtm_write_restart_data 
        MODULE PROCEDURE wtm_write_restart_data 
@@ -425 +433 @@
     
     PUBLIC wtm_check_parameters, wtm_forces, wtm_init, wtm_init_arrays,        &
-           wtm_parin, wtm_write_restart_data, wtm_tendencies
+           wtm_parin, wtm_write_restart_data, wtm_tendencies, wtm_skip_var_list
 
 
@@ -491 +499 @@
 
     END SUBROUTINE wtm_parin
+
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Skipping the wind turbine module variables from restart-file (binary format).
+!------------------------------------------------------------------------------!
+   SUBROUTINE wtm_skip_var_list 
+        
+      IMPLICIT NONE
+            
+      CHARACTER (LEN=1)  ::  cdum
+      CHARACTER (LEN=30) ::  variable_chr
+            
+      READ ( 13 )  variable_chr
+
+      DO  WHILE ( TRIM( variable_chr ) /= '*** end wtm ***' )
+
+         READ ( 13 )  cdum
+         READ ( 13 )  variable_chr
+
+      ENDDO   
+            
+   END SUBROUTINE wtm_skip_var_list 
 
 
@@ -550 +582 @@
           CASE ( 'omega_gen_f' )
              READ ( 13 )  omega_gen_f
+          CASE ( 'omega_gen_f_old' )
+             READ ( 13 )  omega_gen_f_old
           CASE ( 'omega_gen_old' )
              READ ( 13 )  omega_gen_old
-          CASE ( 'omega_gen_f_old' )
-             READ ( 13 )  omega_gen_f_old
           CASE ( 'omega_rot' )
              READ ( 13 )  omega_rot
@@ -568 +600 @@
 
        END SELECT
-
+       
        READ ( 13 )  variable_chr