Changeset 564 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Sep 30, 2010 1:18:59 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r520 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 7 8 ! 8 9 ! Former revisions: … … 139 140 ENDIF 140 141 141 CASE ( 101:103, 106, 111:113, 116, 121:160)142 CASE ( 101:103, 106, 111:113, 116, 201:200+2*max_masks ) 142 143 143 144 IF ( netcdf_data_format < 3 ) THEN … … 1366 1367 ENDIF 1367 1368 1368 CASE ( 121:160)1369 CASE ( 201:200+2*max_masks ) 1369 1370 ! 1370 1371 !-- Set filename depending on unit number 1371 IF ( file_id <= 140) THEN1372 mid = file_id - 1201372 IF ( file_id <= 200+max_masks ) THEN 1373 mid = file_id - 200 1373 1374 WRITE ( mask_char,'(I2.2)') mid 1374 1375 filename = 'DATA_MASK_' // mask_char // '_NETCDF' // coupling_char 1375 1376 av = 0 1376 1377 ELSE 1377 mid = file_id - 1401378 mid = file_id - (200+max_masks) 1378 1379 WRITE ( mask_char,'(I2.2)') mid 1379 1380 filename = 'DATA_MASK_' // mask_char // '_AV_NETCDF' // & … … 1396 1397 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_mask(mid,av) ) 1397 1398 #endif 1398 CALL handle_netcdf_error( 'check_open', 9998)1399 CALL handle_netcdf_error( 'check_open', 456 ) 1399 1400 ! 1400 1401 !-- Read header information and set all ids. If there is a mismatch … … 1407 1408 IF ( .NOT. netcdf_extend ) THEN 1408 1409 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 ) 1410 1411 CALL local_system('rm ' // TRIM( filename ) ) 1411 1412 ENDIF … … 1450 1451 ENDIF 1451 1452 1452 CALL handle_netcdf_error( 'check_open', 9998 )1453 CALL handle_netcdf_error( 'check_open', 458 ) 1453 1454 ! 1454 1455 !-- Define the header … … 1460 1461 #else 1461 1462 1462 CASE ( 101:109, 111:113, 116, 121:160)1463 CASE ( 101:109, 111:113, 116, 201:200+2*max_masks ) 1463 1464 1464 1465 !
Note: See TracChangeset
for help on using the changeset viewer.