Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Mar 18, 2009 12:26:04 PM (15 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/close_file.f90

    r4 r263  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of NetCDF messages with aid of message handling routine.
    77!
    88! Former revisions:
    … …  
    403403                IF ( myid == 0  .AND.  netcdf_output )  THEN
    404404                   nc_stat = NF90_CLOSE( id_set_xy(0) )
    405                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 44 )
     405                   CALL handle_netcdf_error( 'close_file', 44 )
    406406                ENDIF
    407407
    … …  
    410410                IF ( myid == 0  .AND.  netcdf_output )  THEN
    411411                   nc_stat = NF90_CLOSE( id_set_xz(0) )
    412                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 45 )
     412                   CALL handle_netcdf_error( 'close_file', 45 )
    413413                ENDIF
    414414
    … …  
    417417                IF ( myid == 0  .AND.  netcdf_output )  THEN
    418418                   nc_stat = NF90_CLOSE( id_set_yz(0) )
    419                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 46 )
     419                   CALL handle_netcdf_error( 'close_file', 46 )
    420420                ENDIF
    421421
    … …  
    424424                IF ( myid == 0  .AND.  netcdf_output )  THEN
    425425                   nc_stat = NF90_CLOSE( id_set_pr )
    426                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 47 )
     426                   CALL handle_netcdf_error( 'close_file', 47 )
    427427                ENDIF
    428428
    … …  
    431431                IF ( myid == 0  .AND.  netcdf_output )  THEN
    432432                   nc_stat = NF90_CLOSE( id_set_ts )
    433                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 48 )
     433                   CALL handle_netcdf_error( 'close_file', 48 )
    434434                ENDIF
    435435
    … …  
    438438                IF ( myid == 0  .AND.  netcdf_output )  THEN
    439439                   nc_stat = NF90_CLOSE( id_set_3d(0) )
    440                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 49 )
     440                   CALL handle_netcdf_error( 'close_file', 49 )
    441441                ENDIF
    442442
    … …  
    445445                IF ( myid == 0  .AND.  netcdf_output )  THEN
    446446                   nc_stat = NF90_CLOSE( id_set_sp )
    447                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 50 )
     447                   CALL handle_netcdf_error( 'close_file', 50 )
    448448                ENDIF
    449449
    … …  
    452452                IF (  netcdf_output )  THEN
    453453                   nc_stat = NF90_CLOSE( id_set_prt )
    454                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 51 )
     454                   CALL handle_netcdf_error( 'close_file', 51 )
    455455                ENDIF
    456456
    … …  
    459459                IF (  netcdf_output )  THEN
    460460                   nc_stat = NF90_CLOSE( id_set_pts )
    461                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 412 )
     461                   CALL handle_netcdf_error( 'close_file', 412 )
    462462                ENDIF
    463463
    … …  
    466466                IF ( myid == 0  .AND.  netcdf_output )  THEN
    467467                   nc_stat = NF90_CLOSE( id_set_xy(1) )
    468                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 52 )
     468                   CALL handle_netcdf_error( 'close_file', 52 )
    469469                ENDIF
    470470
    … …  
    473473                IF ( myid == 0  .AND.  netcdf_output )  THEN
    474474                   nc_stat = NF90_CLOSE( id_set_xz(1) )
    475                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 352 )
     475                   CALL handle_netcdf_error( 'close_file', 352 )
    476476                ENDIF
    477477
    … …  
    480480                IF ( myid == 0  .AND.  netcdf_output )  THEN
    481481                   nc_stat = NF90_CLOSE( id_set_yz(1) )
    482                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 353 )
     482                   CALL handle_netcdf_error( 'close_file', 353 )
    483483                ENDIF
    484484
    … …  
    487487                IF ( myid == 0  .AND.  netcdf_output )  THEN
    488488                   nc_stat = NF90_CLOSE( id_set_3d(1) )
    489                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 353 )
     489                   CALL handle_netcdf_error( 'close_file', 353 )
    490490                ENDIF
    491491
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |