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

Timestamp:

Oct 26, 2016 4:53:23 PM (8 years ago)

Author:

gronemeier

Message:

Increased the number of possible statistic regions to 99

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Removed check for statistic_regions > 9.
 ! 
 ! Former revisions:
@@ -1985 +1985 @@
 
 !
-!-- Check number of chosen statistic regions. More than 10 regions are not
-!-- allowed, because so far no more than 10 corresponding output files can
-!-- be opened (cf. check_open)
-    IF ( statistic_regions > 9  .OR.  statistic_regions < 0 )  THEN
+!-- Check number of chosen statistic regions
+    IF ( statistic_regions < 0 )  THEN
        WRITE ( message_string, * ) 'number of statistic_regions = ',           &
-                   statistic_regions+1, ' but only 10 regions are allowed'
+                   statistic_regions+1, ' is not allowed'
        CALL message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 )
     ENDIF