Changeset 3347 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Oct 15, 2018 2:21:08 PM (6 years ago)

Author:

suehring

Message:

Offline nesting revised and separated from large_scale_forcing_mod; Time-dependent synthetic turbulence generator; bugfixes in USM/LSM radiation model and init_pegrid

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (6 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! - Separate offline nesting from large_scale_nudging_mod
+! - Improve the synthetic turbulence generator
+! 
+! 3298 2018-10-02 12:21:11Z kanani
+! Minor formatting (kanani)
+! Added CALL to the chem_emissions module (Russo)
+! 
+! 3294 2018-10-01 02:37:10Z raasch
 ! allocate and set stokes drift velocity profiles
 ! 
@@ -563 +571 @@
         ONLY:  chem_emis, chem_emis_att, init_3d,                              &
                netcdf_data_input_init_3d, netcdf_data_input_interpolate
+        
+    USE nesting_offl_mod,                                                      &
+        ONLY:  nesting_offl_init
 
     USE ocean_mod,                                                             &
@@ -601 +612 @@
 
     USE synthetic_turbulence_generator_mod,                                    &
-        ONLY:  stg_init, use_syn_turb_gen
-
+        ONLY:  parametrize_inflow_turbulence, stg_adjust, stg_init,            &
+               use_syn_turb_gen
+               
     USE surface_layer_fluxes_mod,                                              &
         ONLY:  init_surface_layer_fluxes
@@ -2152 +2164 @@
     IF ( nudging )  CALL nudge_init
 !
-!-- Initialize 1D/3D offline-nesting with COSMO model and read data from 
-!-- external file.
-    IF ( large_scale_forcing  .OR.  nesting_offline )  CALL lsf_init
+!-- Initialize 1D large-scale forcing and nudging and read data from external
+!-- ASCII file
+    IF ( large_scale_forcing )  CALL lsf_init
 !
 !-- Initialize surface forcing corresponding to large-scale forcing. Therein, 
@@ -2163 +2175 @@
        ENDIF
     ENDIF
+!
+!-- Initializae 3D offline nesting in COSMO model and read data from 
+!-- external NetCDF file.
+    IF ( nesting_offline )  CALL nesting_offl_init
 !
 !-- Initialize quantities for special advections schemes
@@ -2279 +2295 @@
        CALL location_message( 'finished', .TRUE. )
     ENDIF
-
+!
+!-- In case the synthetic turbulence generator does not have any information
+!-- about the inflow turbulence, these information will be parametrized 
+!-- depending on the initial atmospheric conditions and surface properties.
+!-- Please note, within pre-determined time intervals these turbulence 
+!-- information can be updated if desired. 
+    IF ( use_syn_turb_gen  .AND.  parametrize_inflow_turbulence )              &
+       CALL stg_adjust
 !
 !-- If required, set chemical emissions