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_3d.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!
     
    9596                               start = (/ do3d_time_count(av) /), &
    9697                               count = (/ 1 /) )
    97        IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 1009 )
     98       CALL handle_netcdf_error( 'data_output_3d', 1009 )
    9899    ENDIF
    99100#endif
     
    385386                                  start = (/ 1, 1, 1, do3d_time_count(av) /), &
    386387                                  count = (/ nx+2, ny+2, nz_do3d-nzb+1, 1 /) )
    387              IF ( nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 1010 )
     388             CALL handle_netcdf_error( 'data_output_3d', 1010 )
    388389          ENDIF
    389390#endif
Note: See TracChangeset for help on using the changeset viewer.