Ignore:
Timestamp:
Oct 26, 2016 4:53:23 PM (5 years ago)
Author:
gronemeier
Message:

Increased the number of possible statistic regions to 99

File:
1 edited

Legend:

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

    r2038 r2039  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Removed check for statistic_regions > 9.
    2323!
    2424! Former revisions:
     
    19851985
    19861986!
    1987 !-- Check number of chosen statistic regions. More than 10 regions are not
    1988 !-- allowed, because so far no more than 10 corresponding output files can
    1989 !-- be opened (cf. check_open)
    1990     IF ( statistic_regions > 9  .OR.  statistic_regions < 0 )  THEN
     1987!-- Check number of chosen statistic regions
     1988    IF ( statistic_regions < 0 )  THEN
    19911989       WRITE ( message_string, * ) 'number of statistic_regions = ',           &
    1992                    statistic_regions+1, ' but only 10 regions are allowed'
     1990                   statistic_regions+1, ' is not allowed'
    19931991       CALL message( 'check_parameters', 'PA0082', 1, 2, 0, 6, 0 )
    19941992    ENDIF
Note: See TracChangeset for help on using the changeset viewer.