Changeset 3204 for palm/trunk/SOURCE/parin.f90

Timestamp:

Aug 23, 2018 10:49:05 AM (6 years ago)

Author:

raasch

Message:

additional check for nz

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! additional check for nz
+! 
+! 3184 2018-07-27 17:13:09Z suehring
 ! Bugfix, comment setting of chemistry and passive scalar top boundary condition
 ! in case of offline nesting
@@ -1047 +1050 @@
                 CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
              ENDIF
+
+!
+!--          As a side condition, routine flow_statistics require at least 14
+!--          vertical grid levels (they are used to store time-series data)
+!>           @todo   Remove this restriction
+             IF ( nz < 14 )  THEN
+                WRITE( message_string, * ) 'nz >= 14 is required'
+                CALL message( 'parin', 'PA0362', 1, 2, 0, 6, 0 )
+             ENDIF
+
 !
 !--          ATTENTION: in case of changes to the following statement please