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

Timestamp:

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

Author:

Giersch

Message:

Bugfixes for restart runs

File:

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

palm/trunk/SOURCE/virtual_flight_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Definition of a new function called flight_skip_var_list to skip module 
+! parameters during reading restart data
+! 
+! 2563 2017-10-19 15:36:10Z Giersch
 ! flight_read_restart_data is called in flight_parin in the case of a restart 
 ! run. flight_skip_var_list is not necessary anymore due to marker changes in
@@ -119 +123 @@
        MODULE PROCEDURE flight_measurement
     END INTERFACE flight_measurement
+
+    INTERFACE flight_skip_var_list 
+       MODULE PROCEDURE flight_skip_var_list
+    END INTERFACE flight_skip_var_list
     
     INTERFACE flight_read_restart_data 
@@ -134 +142 @@
 !-- Public interfaces
     PUBLIC flight_init, flight_header, flight_parin, flight_measurement,       &
-           flight_write_restart_data                    
+           flight_write_restart_data, flight_skip_var_list                    
 !
 !-- Public variables
@@ -860 +868 @@
 
     END SUBROUTINE flight_check_parameters
+
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Skipping the flight-module variables from restart-file (binary format).
+!------------------------------------------------------------------------------!
+   SUBROUTINE flight_skip_var_list 
+        
+      IMPLICIT NONE
+            
+      CHARACTER (LEN=1)  ::  cdum
+      CHARACTER (LEN=30) ::  variable_chr
+            
+      READ ( 13 )  variable_chr
+
+      DO  WHILE ( TRIM( variable_chr ) /= '*** end flight ***' )
+
+         READ ( 13 )  cdum
+         READ ( 13 )  variable_chr
+
+      ENDDO   
+            
+   END SUBROUTINE flight_skip_var_list 
+        
    
 !------------------------------------------------------------------------------!