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/data_output_2d.f90

    r254 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!
     
    568569                                         start = (/ do2d_xy_time_count(av) /), &
    569570                                                    count = (/ 1 /) )
    570                             IF ( nc_stat /= NF90_NOERR )  THEN
    571                                CALL handle_netcdf_error( 53 )
    572                             ENDIF
     571                         CALL handle_netcdf_error( 'data_output_2d', 53 )
    573572#endif
    574573                         ENDIF
     
    666665                                                count = (/ nx+2, ny+2, 1, 1 /) )
    667666                            ENDIF
    668                             IF ( nc_stat /= NF90_NOERR )  &
    669                                                   CALL handle_netcdf_error( 54 )
     667                            CALL handle_netcdf_error( 'data_output_2d', 54 )
    670668                         ENDIF
    671669#endif
     
    708706                                              count = (/ nx+2, ny+2, 1, 1 /) )
    709707                      ENDIF
    710                       IF ( nc_stat /= NF90_NOERR )  &
    711                                                   CALL handle_netcdf_error( 55 )
     708                      CALL handle_netcdf_error( 'data_output_2d', 55 )
    712709                   ENDIF
    713710#endif
     
    758755                                         start = (/ do2d_xz_time_count(av) /), &
    759756                                                    count = (/ 1 /) )
    760                             IF ( nc_stat /= NF90_NOERR )  THEN
    761                                CALL handle_netcdf_error( 56 )
    762                             ENDIF
     757                             CALL handle_netcdf_error( 'data_output_2d', 56 )
    763758#endif
    764759                         ENDIF
     
    882877                               start = (/ 1, is, 1, do2d_xz_time_count(av) /), &
    883878                                                count = (/ nx+2, 1, nz+2, 1 /) )
    884                             IF ( nc_stat /= NF90_NOERR ) &
    885                                                   CALL handle_netcdf_error( 57 )
     879                            CALL handle_netcdf_error( 'data_output_2d', 57 )
    886880                         ENDIF
    887881#endif
     
    926920                               start = (/ 1, is, 1, do2d_xz_time_count(av) /), &
    927921                                              count = (/ nx+2, 1, nz+2, 1 /) )
    928                       IF ( nc_stat /= NF90_NOERR )  &
    929                                                   CALL handle_netcdf_error( 58 )
     922                      CALL handle_netcdf_error( 'data_output_2d', 58 )
    930923                   ENDIF
    931924#endif
     
    969962                                         start = (/ do2d_yz_time_count(av) /), &
    970963                                                    count = (/ 1 /) )
    971                             IF ( nc_stat /= NF90_NOERR )  THEN
    972                                CALL handle_netcdf_error( 59 )
    973                             ENDIF
     964                            CALL handle_netcdf_error( 'data_output_2d', 59 )
    974965#endif
    975966                         ENDIF
     
    10931084                               start = (/ is, 1, 1, do2d_yz_time_count(av) /), &
    10941085                                                count = (/ 1, ny+2, nz+2, 1 /) )
    1095                             IF ( nc_stat /= NF90_NOERR ) &
    1096                                                   CALL handle_netcdf_error( 60 )
     1086                            CALL handle_netcdf_error( 'data_output_2d', 60 )
    10971087                         ENDIF
    10981088#endif
     
    11371127                               start = (/ is, 1, 1, do2d_xz_time_count(av) /), &
    11381128                                              count = (/ 1, ny+2, nz+2, 1 /) )
    1139                       IF ( nc_stat /= NF90_NOERR )  &
    1140                                                   CALL handle_netcdf_error( 61 )
     1129                      CALL handle_netcdf_error( 'data_output_2d', 61 )
    11411130                   ENDIF
    11421131#endif
Note: See TracChangeset for help on using the changeset viewer.