Changeset 2938 for palm/trunk/SOURCE/parin.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/parin.f90 (modified) (2 diffs)

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Change initialization in case child domain should be initialized with Inifor.
+! 
+! 2936 2018-03-27 14:49:27Z suehring
 ! inipar renamed to initialization_parameters.
 ! d3par renamed to runtime_parameters.
@@ -907 +910 @@
 !--       are set properly. An exception is made in case of restart runs and
 !--       if user decides to do everything by its own.
-!--       MS: is this really necessary?
           IF ( nest_domain  .AND.  .NOT. (                                     &
                TRIM( initializing_actions ) == 'read_restart_data'  .OR.       &
-               TRIM( initializing_actions ) == 'by_user'            .OR.       &
-               TRIM( initializing_actions ) == 'inifor' ) )  THEN
+               TRIM( initializing_actions ) == 'by_user' ) )  THEN
              initializing_actions = 'set_constant_profiles'
           ENDIF