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_ptseries.f90

    r77 r263  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of NetCDF messages with aid of message handling routine.
     7!
    78!
    89! Former revisions:
     
    5758                               (/ simulated_time /),           &
    5859                               start = (/ dopts_time_count /), count = (/ 1 /) )
    59        IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 391 )
     60       CALL handle_netcdf_error( 'data_output_ptseries', 391 )
    6061#endif
    6162
     
    269270                                     start = (/ dopts_time_count /), &
    270271                                     count = (/ 1 /) )
    271              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 392 )
     272             CALL handle_netcdf_error( 'data_output_ptseries', 392 )
    272273          ENDDO
    273274       ENDDO
Note: See TracChangeset for help on using the changeset viewer.