Ignore:
Timestamp:
Feb 24, 2020 2:13:56 PM (3 years ago)
Author:
maronga
Message:

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

File:
1 edited

Legend:

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

    r4403 r4420  
    2525! -----------------
    2626! $Id$
     27! Added output control for wind turbine model
     28!
     29! 4403 2020-02-12 13:08:46Z banzhafs
    2730! Allowing both existing and on-demand emission read modes
    2831!
     
    369372               vm_time_start
    370373
     374               
     375    USE wind_turbine_model_mod,                                                                    &
     376        ONLY:  dt_data_output_wtm, time_wtm, wind_turbine, wtm_data_output
    371377
    372378#if defined( _OPENACC )
     
    12861292          time_virtual_measurement = time_virtual_measurement + dt_3d
    12871293       ENDIF
     1294       
     1295!
     1296!--    Increment time-counter for wind turbine data output
     1297       IF ( wind_turbine )  THEN
     1298          time_wtm = time_wtm + dt_3d
     1299       ENDIF
     1300 
    12881301!
    12891302!--    In case of synthetic turbulence generation and parametrized turbulence
     
    14391452                                          MAX( dt_virtual_measurement, dt_3d ) )
    14401453       ENDIF
     1454       
     1455!
     1456!--    Output wind turbine data
     1457       IF ( wind_turbine  .AND.  time_wtm >= dt_data_output_wtm )  THEN
     1458          CALL wtm_data_output
     1459          time_wtm = MOD( time_wtm, MAX( dt_data_output_wtm, dt_3d ) )
     1460       ENDIF
     1461       
    14411462!
    14421463!--    Profile output (ASCII) on file
Note: See TracChangeset for help on using the changeset viewer.