Changeset 1060 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Nov 21, 2012 7:19:51 AM (11 years ago)

Author:

raasch

Message:

additional check for parameter turbulent_inflow

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! additional check for parameter turbulent_inflow
 !
 ! Former revisions:
@@ -3419 +3420 @@
 
 !
+!-- Turbulent inflow requires that 3d arrays have been cyclically filled with
+!-- data from prerun
+    IF ( turbulent_inflow  .AND.  initializing_actions /= 'cyclic_fill' )  THEN
+       message_string = 'turbulent_inflow = .T. requires ' // &
+                        'initializing_actions = ''cyclic_fill'' '
+       CALL message( 'check_parameters', 'PA0055', 1, 2, 0, 6, 0 )
+    ENDIF
+
+!
 !-- In case of turbulent inflow calculate the index of the recycling plane
     IF ( turbulent_inflow )  THEN