Ignore:
Timestamp:
Apr 29, 2019 3:09:07 PM (2 years ago)
Author:
suehring
Message:

Move initialization of STG behind initialization of offline nesting; Bugfix in STG in case of very early restart; calculation of scaling parameters used for parametrization of synthetic turbulence profiles improved; in offline nesting, set boundary value at upper-left and upper-south grid points for u- and v-component, respectively

File:
1 edited

Legend:

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

    r3900 r3937  
    2525! -----------------
    2626! $Id$
     27! Move initialization of synthetic turbulence generator behind initialization
     28! of offline nesting. Remove call for stg_adjust, as this is now already done
     29! in stg_init.
     30!
     31! 3900 2019-04-16 15:17:43Z suehring
    2732! Fix problem with LOD = 2 initialization
    2833!
     
    666671
    667672    USE synthetic_turbulence_generator_mod,                                    &
    668         ONLY:  parametrize_inflow_turbulence, stg_adjust, stg_init,            &
    669                use_syn_turb_gen
     673        ONLY:  parametrize_inflow_turbulence, stg_init, use_syn_turb_gen
    670674
    671675    USE surface_layer_fluxes_mod,                                              &
     
    13051309!--       fluxes, etc.
    13061310          CALL init_surfaces
    1307 !
    1308 !--       Initialize turbulence generator
    1309           IF( use_syn_turb_gen )  CALL stg_init
    13101311
    13111312          CALL location_message( 'initializing with INIFOR', 'finished' )
     
    13751376!--       fluxes, etc.
    13761377          CALL init_surfaces
    1377 !
    1378 !--       Initialize synthetic turbulence generator if required
    1379           IF( use_syn_turb_gen )  CALL stg_init
    13801378
    13811379          CALL location_message( 'initializing with 1D model profiles', 'finished' )
     
    14461444!--       fluxes, etc.
    14471445          CALL init_surfaces
    1448 !
    1449 !--       Initialize synthetic turbulence generator if required
    1450           IF( use_syn_turb_gen )  CALL stg_init
    14511446         
    14521447          CALL location_message( 'initializing with constant profiles', 'finished' )
     
    18681863       ENDIF
    18691864       IF ( passive_scalar )  ts_m  = 0.0_wp
    1870 !
    1871 !--    Initialize synthetic turbulence generator in case of restart.
    1872        IF ( TRIM( initializing_actions ) == 'read_restart_data'  .AND.         &
    1873             use_syn_turb_gen )  CALL stg_init
    18741865
    18751866       CALL location_message( 'initializing in case of restart / cyclic_fill', 'finished' )
     
    23152306    IF ( agents_active )  CALL mas_init
    23162307!
    2317 !-- In case the synthetic turbulence generator does not have any information
    2318 !-- about the inflow turbulence, these information will be parametrized
    2319 !-- depending on the initial atmospheric conditions and surface properties.
    2320 !-- Please note, within pre-determined time intervals these turbulence
    2321 !-- information can be updated if desired.
    2322     IF ( use_syn_turb_gen  .AND.  parametrize_inflow_turbulence )  THEN
    2323        CALL stg_adjust
    2324     ENDIF
     2308!-- Initialization of synthetic turbulence generator
     2309    IF ( use_syn_turb_gen )  CALL stg_init
    23252310!
    23262311!-- Initializing actions for all other modules
Note: See TracChangeset for help on using the changeset viewer.