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_spectra.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!
     
    6667       nc_stat = NF90_PUT_VAR( id_set_sp, id_var_time_sp, (/ simulated_time /),&
    6768                               start = (/ dosp_time_count /), count = (/ 1 /) )
    68        IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 47 )
     69       CALL handle_netcdf_error( 'data_output_spectra', 47 )
    6970#endif
    7071
     
    225226                                  start = (/ 1, k, dosp_time_count /), &
    226227                                  count = (/ nx/2, 1, 1 /) )
    227           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 348 )
     228          CALL handle_netcdf_error( 'data_output_spectra', 348 )
    228229
    229230       ENDDO
     
    243244                                  start = (/ 1, k, dosp_time_count /), &
    244245                                  count = (/ ny/2, 1, 1 /) )
    245           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 349 )
     246          CALL handle_netcdf_error( 'data_output_spectra', 349 )
    246247
    247248       ENDDO
Note: See TracChangeset for help on using the changeset viewer.