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/check_open.f90

    r520 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:
     
    139140          ENDIF
    140141
    141        CASE ( 101:103, 106, 111:113, 116, 121:160 )
     142       CASE ( 101:103, 106, 111:113, 116, 201:200+2*max_masks )
    142143
    143144          IF ( netcdf_data_format < 3 )  THEN
     
    13661367          ENDIF
    13671368
    1368        CASE ( 121:160 )
     1369       CASE ( 201:200+2*max_masks )
    13691370!
    13701371!--       Set filename depending on unit number
    1371           IF ( file_id <= 140 )  THEN
    1372              mid = file_id - 120
     1372          IF ( file_id <= 200+max_masks )  THEN
     1373             mid = file_id - 200
    13731374             WRITE ( mask_char,'(I2.2)')  mid
    13741375             filename = 'DATA_MASK_' // mask_char // '_NETCDF' // coupling_char
    13751376             av = 0
    13761377          ELSE
    1377              mid = file_id - 140
     1378             mid = file_id - (200+max_masks)
    13781379             WRITE ( mask_char,'(I2.2)')  mid
    13791380             filename = 'DATA_MASK_' // mask_char // '_AV_NETCDF' // &
     
    13961397             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_mask(mid,av) )
    13971398#endif
    1398              CALL handle_netcdf_error( 'check_open', 9998 )
     1399             CALL handle_netcdf_error( 'check_open', 456 )
    13991400!
    14001401!--          Read header information and set all ids. If there is a mismatch
     
    14071408             IF ( .NOT. netcdf_extend )  THEN
    14081409                nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
    1409                 CALL handle_netcdf_error( 'check_open', 9998 )
     1410                CALL handle_netcdf_error( 'check_open', 457 )
    14101411                CALL local_system('rm ' // TRIM( filename ) )
    14111412             ENDIF
     
    14501451             ENDIF
    14511452
    1452              CALL handle_netcdf_error( 'check_open', 9998 )
     1453             CALL handle_netcdf_error( 'check_open', 458 )
    14531454!
    14541455!--          Define the header
     
    14601461#else
    14611462
    1462        CASE ( 101:109, 111:113, 116, 121:160 )
     1463       CASE ( 101:109, 111:113, 116, 201:200+2*max_masks )
    14631464
    14641465!
Note: See TracChangeset for help on using the changeset viewer.