Changeset 2776 for palm/trunk/SOURCE/wind_turbine_model_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/wind_turbine_model_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! wind_turbine_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
 ! 
@@ -124 +128 @@
     USE control_parameters,                                                    &
         ONLY:  coupling_char, dt_3d, dz, message_string, simulated_time,       &
-               wind_turbine, initializing_actions
+               wind_turbine, wind_turbine_prerun, initializing_actions
 
     USE cpulog,                                                                &
@@ -543 +547 @@
 
        IMPLICIT NONE
+
+       wind_turbine_prerun = .TRUE.
        
        WRITE ( 14 )  'omega_gen                     '
@@ -564 +570 @@
        WRITE ( 14 )  'torque_gen_old                '
        WRITE ( 14 )  torque_gen_old
+       WRITE ( 14 )  'wind_turbine_prerun           '
+       WRITE ( 14 )  wind_turbine_prerun
      
        WRITE ( 14 )  '*** end wtm ***               '
@@ -608 +616 @@
           CASE ( 'torque_gen_old' )
              READ ( 13 )  torque_gen_old
+          CASE ( 'wind_turbine_prerun' )
+             READ ( 13 )  wind_turbine_prerun
 
        END SELECT
@@ -1457 +1467 @@
 !--          Interpolation of lift and drag coefficiencts on fine grid of radius 
 !--          segments and angles of attack
-
              turb_cl_tab(iialpha,iir) = ( alpha_attack_tab(ialpha) -           &
                                           alpha_attack_i ) /                   &