Changeset 3204 for palm/trunk
- Timestamp:
- Aug 23, 2018 10:49:05 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r3184 r3204 25 25 ! ----------------- 26 26 ! $Id$ 27 ! additional check for nz 28 ! 29 ! 3184 2018-07-27 17:13:09Z suehring 27 30 ! Bugfix, comment setting of chemistry and passive scalar top boundary condition 28 31 ! in case of offline nesting … … 1047 1050 CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 ) 1048 1051 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 1049 1062 ! 1050 1063 !-- ATTENTION: in case of changes to the following statement please
Note: See TracChangeset
for help on using the changeset viewer.