Changeset 3204


Ignore:
Timestamp:
Aug 23, 2018 10:49:05 AM (3 years ago)
Author:
raasch
Message:

additional check for nz

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/parin.f90

    r3184 r3204  
    2525! -----------------
    2626! $Id$
     27! additional check for nz
     28!
     29! 3184 2018-07-27 17:13:09Z suehring
    2730! Bugfix, comment setting of chemistry and passive scalar top boundary condition
    2831! in case of offline nesting
     
    10471050                CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
    10481051             ENDIF
     1052
     1053!
     1054!--          As a side condition, routine flow_statistics require at least 14
     1055!--          vertical grid levels (they are used to store time-series data)
     1056!>           @todo   Remove this restriction
     1057             IF ( nz < 14 )  THEN
     1058                WRITE( message_string, * ) 'nz >= 14 is required'
     1059                CALL message( 'parin', 'PA0362', 1, 2, 0, 6, 0 )
     1060             ENDIF
     1061
    10491062!
    10501063!--          ATTENTION: in case of changes to the following statement please
Note: See TracChangeset for help on using the changeset viewer.