Changeset 564 for palm/trunk/SOURCE/data_output_mask.f90
- Timestamp:
- Sep 30, 2010 1:18:59 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_mask.f90
r494 r564 4 4 ! Current revisions: 5 5 ! ----------------- 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 7 8 ! 8 9 ! Former revisions: … … 60 61 IF ( netcdf_output .AND. ( myid == 0 .OR. netcdf_data_format > 2 ) ) & 61 62 THEN 62 CALL check_open( 120+mid+av*max_masks )63 CALL check_open( 200+mid+av*max_masks ) 63 64 ENDIF 64 65 … … 82 83 start = (/ domask_time_count(mid,av) /), & 83 84 count = (/ 1 /) ) 84 CALL handle_netcdf_error( 'data_output_mask', 9998)85 CALL handle_netcdf_error( 'data_output_mask', 460 ) 85 86 ENDIF 86 87 … … 300 301 WRITE ( message_string, * ) 'no output available for: ', & 301 302 TRIM( domask(mid,av,if) ) 302 CALL message( 'data_output_mask', 'PA 9998', 0, 0, 0, 6, 0 )303 CALL message( 'data_output_mask', 'PA0327', 0, 0, 0, 6, 0 ) 303 304 ENDIF 304 305 … … 339 340 count = (/ mask_size_l(mid,1), mask_size_l(mid,2), & 340 341 mask_size_l(mid,3), 1 /) ) 341 CALL handle_netcdf_error( 'data_output_mask', 9998)342 CALL handle_netcdf_error( 'data_output_mask', 461 ) 342 343 ELSE 343 344 #endif … … 386 387 count = (/ mask_size(mid,1), mask_size(mid,2), & 387 388 mask_size(mid,3), 1 /) ) 388 CALL handle_netcdf_error( 'data_output_mask', 9998)389 CALL handle_netcdf_error( 'data_output_mask', 462 ) 389 390 390 391 ELSE … … 431 432 count = (/ mask_size_l(mid,1), mask_size_l(mid,2), & 432 433 mask_size_l(mid,3), 1 /) ) 433 CALL handle_netcdf_error( 'data_output_mask', 9998)434 CALL handle_netcdf_error( 'data_output_mask', 463 ) 434 435 #endif 435 436
Note: See TracChangeset
for help on using the changeset viewer.