Ignore:
Timestamp:
Mar 18, 2009 12:26:04 PM (13 years ago)
Author:
heinze
Message:

Output of NetCDF messages with aid of message handling routine.

File:
1 edited

Legend:

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

    r247 r263  
    44! Current revisions:
    55! -----------------
     6! Output of NetCDF messages with aid of message handling routine.
    67! Output of messages replaced by message handling routine
    78!
     
    697698!--          Open an existing NetCDF file for output
    698699             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av) )
    699              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 20 )
     700
     701             CALL handle_netcdf_error( 'check_open', 20 )
    700702!
    701703!--          Read header information and set all ids. If there is a mismatch
     
    708710             IF ( .NOT. netcdf_extend )  THEN
    709711                nc_stat = NF90_CLOSE( id_set_xy(av) )
    710                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 21 )
     712                CALL handle_netcdf_error( 'check_open', 21 )
    711713                CALL local_system( 'rm ' // TRIM( filename ) )
    712714             ENDIF
     
    731733                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_xy(av) )
    732734             ENDIF
    733              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 22 )
     735             CALL handle_netcdf_error( 'check_open', 22 )
    734736!
    735737!--          Define the header
     
    758760!--          Open an existing NetCDF file for output
    759761             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av) )
    760              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 23 )
     762             CALL handle_netcdf_error( 'check_open', 23 )
    761763!
    762764!--          Read header information and set all ids. If there is a mismatch
     
    769771             IF ( .NOT. netcdf_extend )  THEN
    770772                nc_stat = NF90_CLOSE( id_set_xz(av) )
    771                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 24 )
     773                CALL handle_netcdf_error( 'check_open', 24 )
    772774                CALL local_system( 'rm ' // TRIM( filename ) )
    773775             ENDIF
     
    792794                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_xz(av) )
    793795             ENDIF
    794              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 25 )
     796             CALL handle_netcdf_error( 'check_open', 25 )
    795797!
    796798!--          Define the header
     
    819821!--          Open an existing NetCDF file for output
    820822             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av) )
    821              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 26 )
     823             CALL handle_netcdf_error( 'check_open', 26 )
    822824!
    823825!--          Read header information and set all ids. If there is a mismatch
     
    830832             IF ( .NOT. netcdf_extend )  THEN
    831833                nc_stat = NF90_CLOSE( id_set_yz(av) )
    832                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 27 )
     834                CALL handle_netcdf_error( 'check_open', 27 )
    833835                CALL local_system( 'rm ' // TRIM( filename ) )
    834836             ENDIF
     
    853855                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_yz(av) )
    854856             ENDIF
    855              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 28 )
     857             CALL handle_netcdf_error( 'check_open', 28 )
    856858!
    857859!--          Define the header
     
    874876!--          Open an existing NetCDF file for output
    875877             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_pr )
    876              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 29 )
     878             CALL handle_netcdf_error( 'check_open', 29 )
    877879!
    878880!--          Read header information and set all ids. If there is a mismatch
     
    885887             IF ( .NOT. netcdf_extend )  THEN
    886888                nc_stat = NF90_CLOSE( id_set_pr )
    887                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 30 )
     889                CALL handle_netcdf_error( 'check_open', 30 )
    888890                CALL local_system( 'rm ' // TRIM( filename ) )
    889891             ENDIF
     
    908910                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pr )
    909911             ENDIF
    910              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 31 )
     912             CALL handle_netcdf_error( 'check_open', 31 )
    911913!
    912914!--          Define the header
     
    929931!--          Open an existing NetCDF file for output
    930932             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_ts )
    931              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 32 )
     933             CALL handle_netcdf_error( 'check_open', 32 )
    932934!
    933935!--          Read header information and set all ids. If there is a mismatch
     
    940942             IF ( .NOT. netcdf_extend )  THEN
    941943                nc_stat = NF90_CLOSE( id_set_ts )
    942                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 33 )
     944                CALL handle_netcdf_error( 'check_open', 33 )
    943945                CALL local_system( 'rm ' // TRIM( filename ) )
    944946             ENDIF
     
    963965                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_ts )
    964966             ENDIF
    965              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 34 )
     967             CALL handle_netcdf_error( 'check_open', 34 )
    966968!
    967969!--          Define the header
     
    991993!--          Open an existing NetCDF file for output
    992994             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av) )
    993              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 35 )
     995             CALL handle_netcdf_error( 'check_open', 35 )
    994996!
    995997!--          Read header information and set all ids. If there is a mismatch
     
    10021004             IF ( .NOT. netcdf_extend )  THEN
    10031005                nc_stat = NF90_CLOSE( id_set_3d(av) )
    1004                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 36 )
     1006                CALL handle_netcdf_error( 'check_open', 36 )
    10051007                CALL local_system('rm ' // TRIM( filename ) )
    10061008             ENDIF
     
    10251027                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_3d(av) )
    10261028             ENDIF
    1027              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 37 )
     1029             CALL handle_netcdf_error( 'check_open', 37 )
    10281030!
    10291031!--          Define the header
     
    10471049!--          Open an existing NetCDF file for output
    10481050             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_sp )
    1049              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 38 )
     1051             CALL handle_netcdf_error( 'check_open', 38 )
     1052
    10501053!
    10511054!--          Read header information and set all ids. If there is a mismatch
     
    10581061             IF ( .NOT. netcdf_extend )  THEN
    10591062                nc_stat = NF90_CLOSE( id_set_sp )
    1060                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 39 )
     1063                CALL handle_netcdf_error( 'check_open', 39 )
    10611064                CALL local_system( 'rm ' // TRIM( filename ) )
    10621065             ENDIF
     
    10811084                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_sp )
    10821085             ENDIF
    1083              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 40 )
     1086             CALL handle_netcdf_error( 'check_open', 40 )
    10841087!
    10851088!--          Define the header
     
    11061109!--          Open an existing NetCDF file for output
    11071110             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_prt )
    1108              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 41 )
     1111             CALL handle_netcdf_error( 'check_open', 41 )
    11091112!
    11101113!--          Read header information and set all ids. If there is a mismatch
     
    11171120             IF ( .NOT. netcdf_extend )  THEN
    11181121                nc_stat = NF90_CLOSE( id_set_prt )
    1119                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 42 )
     1122                CALL handle_netcdf_error( 'check_open', 42 )
    11201123                CALL local_system( 'rm ' // filename )
    11211124             ENDIF
     
    11571160                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_prt )
    11581161             ENDIF
    1159              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 43 )
     1162             CALL handle_netcdf_error( 'check_open', 43 ) 
    11601163
    11611164!
     
    11791182!--          Open an existing NetCDF file for output
    11801183             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_pts )
    1181              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 393 )
     1184             CALL handle_netcdf_error( 'check_open', 393 )
    11821185!
    11831186!--          Read header information and set all ids. If there is a mismatch
     
    11901193             IF ( .NOT. netcdf_extend )  THEN
    11911194                nc_stat = NF90_CLOSE( id_set_pts )
    1192                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 394 )
     1195                CALL handle_netcdf_error( 'check_open', 394 )
    11931196                CALL local_system( 'rm ' // TRIM( filename ) )
    11941197             ENDIF
     
    12131216                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_pts )
    12141217             ENDIF
    1215              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 395 )
     1218             CALL handle_netcdf_error( 'check_open', 395 )
    12161219!
    12171220!--          Define the header
Note: See TracChangeset for help on using the changeset viewer.