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_tseries.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:
     
    6667                                  start = (/ dots_time_count /), &
    6768                                  count = (/ 1 /) )
    68           IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 350 )
     69          CALL handle_netcdf_error( 'data_output_tseries', 350 )
    6970#endif
    7071       ENDIF
     
    8283                                        start = (/ dots_time_count /), &
    8384                                        count = (/ 1 /) )
    84                 IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 351 )
     85                CALL handle_netcdf_error( 'data_output_tseries', 351 )
    8586             ENDDO
    8687          ENDIF
Note: See TracChangeset for help on using the changeset viewer.