Ignore:
Timestamp:
Sep 30, 2010 1:18:59 PM (13 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/data_output_mask.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, palm message identifiers of masked output changed
    78!
    89! Former revisions:
     
    6061    IF ( netcdf_output  .AND.  ( myid == 0  .OR.  netcdf_data_format > 2 ) ) &
    6162    THEN
    62        CALL check_open( 120+mid+av*max_masks )
     63       CALL check_open( 200+mid+av*max_masks )
    6364    ENDIF
    6465
     
    8283                               start = (/ domask_time_count(mid,av) /),       &
    8384                               count = (/ 1 /) )
    84        CALL handle_netcdf_error( 'data_output_mask', 9998 )
     85       CALL handle_netcdf_error( 'data_output_mask', 460 )
    8586    ENDIF
    8687
     
    300301                WRITE ( message_string, * ) 'no output available for: ', &
    301302                                            TRIM( domask(mid,av,if) )
    302                 CALL message( 'data_output_mask', 'PA9998', 0, 0, 0, 6, 0 )
     303                CALL message( 'data_output_mask', 'PA0327', 0, 0, 0, 6, 0 )
    303304             ENDIF
    304305
     
    339340               count = (/ mask_size_l(mid,1), mask_size_l(mid,2),  &
    340341                          mask_size_l(mid,3), 1 /) )
    341           CALL handle_netcdf_error( 'data_output_mask', 9998 )
     342          CALL handle_netcdf_error( 'data_output_mask', 461 )
    342343       ELSE
    343344#endif
     
    386387                  count = (/ mask_size(mid,1), mask_size(mid,2), &
    387388                             mask_size(mid,3), 1 /) )
    388              CALL handle_netcdf_error( 'data_output_mask', 9998 )
     389             CALL handle_netcdf_error( 'data_output_mask', 462 )
    389390
    390391          ELSE
     
    431432            count = (/ mask_size_l(mid,1), mask_size_l(mid,2), &
    432433                       mask_size_l(mid,3), 1 /) )
    433        CALL handle_netcdf_error( 'data_output_mask', 9998 )
     434       CALL handle_netcdf_error( 'data_output_mask', 463 )
    434435#endif
    435436
Note: See TracChangeset for help on using the changeset viewer.