Ignore:
Timestamp:
Sep 1, 2010 2:09:06 PM (12 years ago)
Author:
weinreis
Message:

several parameters for masked output are replaced by arrays

File:
1 edited

Legend:

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

    r532 r553  
    44! Current revisions:
    55! -----------------
    6 !
     6! masks is calculated and removed from inipar
    77!
    88! Former revisions:
     
    26802680!
    26812681!-- Check mask conditions
     2682    DO mid = 1, max_masks
     2683       IF ( data_output_masks(mid,1) /= ' ') THEN
     2684          masks = masks + 1
     2685       ENDIF
     2686    ENDDO
     2687   
    26822688    IF ( masks < 0 .OR. masks > max_masks )  THEN
    26832689       WRITE( message_string, * )  'illegal value: masks must be >= 0 and ', &
Note: See TracChangeset for help on using the changeset viewer.