Changeset 2776 for palm/trunk/SOURCE/virtual_flight_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/virtual_flight_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/virtual_flight_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! virutal_flight_prerun flag is used to define if module 
+! related parameters were outputted as restart data
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -62 +66 @@
  
     USE control_parameters,                                                    &
-        ONLY:  fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight
+        ONLY:  fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight,   &
+               virtual_flight_prerun
  
     USE kinds
@@ -935 +940 @@
                 IF ( .NOT. ALLOCATED( z_pos ) )  ALLOCATE( z_pos(1:num_leg) )
                 READ ( 13 )  z_pos
+             CASE ( 'virtual_flight_prerun' )
+                READ ( 13 )  virtual_flight_prerun
           
           END SELECT
@@ -952 +959 @@
 
        IMPLICIT NONE
+
+       virtual_flight_prerun = .TRUE.
        
        WRITE ( 14 )  'u_agl                         '
@@ -965 +974 @@
        WRITE ( 14 )  'z_pos                         '
        WRITE ( 14 )  z_pos
+       WRITE ( 14 )  'virtual_flight_prerun         '
+       WRITE ( 14 )  virtual_flight_prerun
        
        WRITE ( 14 )  '*** end flight ***            '