Ignore:
Timestamp:
Jun 8, 2017 9:09:11 AM (4 years ago)
Author:
gronemeier
Message:

Implemented synthetic turbulence generator

File:
1 edited

Legend:

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

    r2252 r2259  
    2525! -----------------
    2626! $Id$
     27! Implemented synthetic turbulence generator
     28!
     29! 2252 2017-06-07 09:35:37Z knoop
    2730! rho_air now depending on surface_pressure even in Boussinesq mode
    2831!
     
    390393               sums_l_l, sums_up_fraction_l, sums_wsts_bc_l, ts_value,         &
    391394               weight_pres, weight_substep
    392  
     395
     396    USE synthetic_turbulence_generator_mod,                                    &
     397        ONLY:  stg_init, use_synthetic_turbulence_generator
     398
    393399    USE surface_layer_fluxes_mod,                                              &
    394400        ONLY:  init_surface_layer_fluxes
     
    10571063
    10581064!
     1065!--       Overwrite initial profiles in case of synthetic turbulence generator
     1066          IF( use_synthetic_turbulence_generator ) THEN
     1067             CALL stg_init
     1068          ENDIF
     1069
     1070!
    10591071!--       Use constructed initial profiles (velocity constant with height,
    10601072!--       temperature profile with constant gradient)
     
    15381550       IF ( passive_scalar )  ts_m  = 0.0_wp
    15391551       IF ( ocean          )  tsa_m = 0.0_wp
     1552!
     1553!--    Initialize synthetic turbulence generator in case of restart.
     1554       IF ( TRIM( initializing_actions ) == 'read_restart_data'  .AND.         &
     1555            use_synthetic_turbulence_generator )  CALL stg_init
    15401556
    15411557       CALL location_message( 'finished', .TRUE. )
Note: See TracChangeset for help on using the changeset viewer.