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

Timestamp:

Mar 27, 2018 3:52:42 PM (6 years ago)

Author:

suehring

Message:

Nesting in RANS-LES and RANS-RANS mode enabled; synthetic turbulence generator at all lateral boundaries in nesting or non-cyclic forcing mode; revised Inifor initialization in nesting mode

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! - Revise Inifor initialization for geostrophic wind components
+! - Initialize synthetic turbulence generator in case of Inifor initialization  
+!
+! 2936 2018-03-27 14:49:27Z suehring
 ! Synchronize parent and child models after initialization.
 ! Remove obsolete masking of topography grid points for Runge-Kutta weighted
@@ -1189 +1193 @@
 !--           are not identical to the initial wind profiles in this case. 
 !--           This need to be further revised.
-!           ug(:) = u_init(:)
-!           vg(:) = v_init(:)
+          IF ( init_3d%from_file_ug )  THEN
+             ug(:) = init_3d%ug_init(:)
+          ENDIF
+          IF ( init_3d%from_file_vg )  THEN
+             vg(:) = init_3d%vg_init(:)
+          ENDIF
+
+          ug(nzt+1) = ug(nzt)
+          vg(nzt+1) = vg(nzt)
+
 !
 !--       Set inital w to 0
@@ -1243 +1255 @@
 !--       fluxes, etc. 
           CALL init_surfaces
+!
+!--       Initialize turbulence generator
+          IF( use_syn_turb_gen )  CALL stg_init
 
           CALL location_message( 'finished', .TRUE. )
@@ -1335 +1350 @@
 !
 !--       Overwrite initial profiles in case of synthetic turbulence generator
-          IF( use_syn_turb_gen ) THEN
-             CALL stg_init
-          ENDIF
+          IF( use_syn_turb_gen )  CALL stg_init
 
 !