Ignore:
Timestamp:
Jan 31, 2018 10:44:42 AM (3 years ago)
Author:
Giersch
Message:

Skipping of module related restart data changed + adapting synthetic turbulence generator to current restart procedure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/virtual_flight_mod.f90

    r2718 r2776  
    2525! -----------------
    2626! $Id$
     27! virutal_flight_prerun flag is used to define if module
     28! related parameters were outputted as restart data
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2731! Corrected "Former revisions" section
    2832!
     
    6266 
    6367    USE control_parameters,                                                    &
    64         ONLY:  fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight
     68        ONLY:  fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight,   &
     69               virtual_flight_prerun
    6570 
    6671    USE kinds
     
    935940                IF ( .NOT. ALLOCATED( z_pos ) )  ALLOCATE( z_pos(1:num_leg) )
    936941                READ ( 13 )  z_pos
     942             CASE ( 'virtual_flight_prerun' )
     943                READ ( 13 )  virtual_flight_prerun
    937944         
    938945          END SELECT
     
    952959
    953960       IMPLICIT NONE
     961
     962       virtual_flight_prerun = .TRUE.
    954963       
    955964       WRITE ( 14 )  'u_agl                         '
     
    965974       WRITE ( 14 )  'z_pos                         '
    966975       WRITE ( 14 )  z_pos
     976       WRITE ( 14 )  'virtual_flight_prerun         '
     977       WRITE ( 14 )  virtual_flight_prerun
    967978       
    968979       WRITE ( 14 )  '*** end flight ***            '
Note: See TracChangeset for help on using the changeset viewer.