Changeset 4420 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Feb 24, 2020 2:13:56 PM (5 years ago)

Author:

maronga

Message:

added steering for NetCDF output for wind turbine model; minor fix in palmrungui

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added output control for wind turbine model
+! 
+! 4403 2020-02-12 13:08:46Z banzhafs
 ! Allowing both existing and on-demand emission read modes
 !
@@ -369 +372 @@
                vm_time_start
 
+               
+    USE wind_turbine_model_mod,                                                                    &
+        ONLY:  dt_data_output_wtm, time_wtm, wind_turbine, wtm_data_output
 
 #if defined( _OPENACC )
@@ -1286 +1292 @@
           time_virtual_measurement = time_virtual_measurement + dt_3d
        ENDIF
+       
+!
+!--    Increment time-counter for wind turbine data output
+       IF ( wind_turbine )  THEN
+          time_wtm = time_wtm + dt_3d
+       ENDIF
+ 
 !
 !--    In case of synthetic turbulence generation and parametrized turbulence
@@ -1439 +1452 @@
                                           MAX( dt_virtual_measurement, dt_3d ) )
        ENDIF
+       
+!
+!--    Output wind turbine data
+       IF ( wind_turbine  .AND.  time_wtm >= dt_data_output_wtm )  THEN
+          CALL wtm_data_output
+          time_wtm = MOD( time_wtm, MAX( dt_data_output_wtm, dt_3d ) )
+       ENDIF
+       
 !
 !--    Profile output (ASCII) on file