Ignore:
Timestamp:
Jan 31, 2018 10:44:42 AM (4 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/wind_turbine_model_mod.f90

    r2718 r2776  
    2626! -----------------
    2727! $Id$
     28! wind_turbine_prerun flag is used to define if module
     29! related parameters were outputted as restart data
     30!
     31! 2718 2018-01-02 08:49:38Z maronga
    2832! Corrected "Former revisions" section
    2933!
     
    124128    USE control_parameters,                                                    &
    125129        ONLY:  coupling_char, dt_3d, dz, message_string, simulated_time,       &
    126                wind_turbine, initializing_actions
     130               wind_turbine, wind_turbine_prerun, initializing_actions
    127131
    128132    USE cpulog,                                                                &
     
    543547
    544548       IMPLICIT NONE
     549
     550       wind_turbine_prerun = .TRUE.
    545551       
    546552       WRITE ( 14 )  'omega_gen                     '
     
    564570       WRITE ( 14 )  'torque_gen_old                '
    565571       WRITE ( 14 )  torque_gen_old
     572       WRITE ( 14 )  'wind_turbine_prerun           '
     573       WRITE ( 14 )  wind_turbine_prerun
    566574     
    567575       WRITE ( 14 )  '*** end wtm ***               '
     
    608616          CASE ( 'torque_gen_old' )
    609617             READ ( 13 )  torque_gen_old
     618          CASE ( 'wind_turbine_prerun' )
     619             READ ( 13 )  wind_turbine_prerun
    610620
    611621       END SELECT
     
    14571467!--          Interpolation of lift and drag coefficiencts on fine grid of radius
    14581468!--          segments and angles of attack
    1459 
    14601469             turb_cl_tab(iialpha,iir) = ( alpha_attack_tab(ialpha) -           &
    14611470                                          alpha_attack_i ) /                   &
Note: See TracChangeset for help on using the changeset viewer.