Ignore:
Timestamp:
Sep 30, 2010 1:18:59 PM (11 years ago)
Author:
helmke
Message:

several changes for an unlimited output of mask data and message IDs changed

File:
1 edited

Legend:

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

    r494 r564  
    44! Current revisions:
    55! -----------------
    6 !
     6! start number of mask output files changed to 201, netcdf message identifiers
     7! of masked output changed
    78!
    89! Former revisions:
     
    100101!
    101102!-- Close all open unit numbers
    102     DO  fid = 1, 160
     103    DO  fid = 1, 200+2*max_masks
    103104
    104105       IF ( openfile(fid)%opened .OR. openfile(fid)%opened_before )  THEN
     
    509510                ENDIF
    510511
    511              CASE ( 121:160 )
     512             CASE ( 201:200+2*max_masks )
    512513             
    513514                IF ( netcdf_output  .AND.  &
     
    515516!
    516517!--                decompose fid into mid and av
    517                    IF ( fid <= 140 )  THEN
    518                       mid = fid - 120
     518                   IF ( fid <= 200+max_masks )  THEN
     519                      mid = fid - 200
    519520                      av = 0
    520521                   ELSE
    521                       mid = fid - 140
     522                      mid = fid - (200+max_masks)
    522523                      av = 1
    523524                   ENDIF
    524525                   nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
    525                    CALL handle_netcdf_error( 'close_file', 9998 )
     526                   CALL handle_netcdf_error( 'close_file', 459 )
    526527               
    527528                ENDIF
Note: See TracChangeset for help on using the changeset viewer.