Changeset 263 for palm/trunk/SOURCE/data_output_ptseries.f90

Timestamp:

Mar 18, 2009 12:26:04 PM (15 years ago)

Author:

heinze

Message:

Output of NetCDF messages with aid of message handling routine.

File:

• palm/trunk/SOURCE/data_output_ptseries.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_ptseries.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of NetCDF messages with aid of message handling routine.
+!
 !
 ! Former revisions:
@@ -57 +58 @@
                                (/ simulated_time /),           &
                                start = (/ dopts_time_count /), count = (/ 1 /) )
-       IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 391 )
+       CALL handle_netcdf_error( 'data_output_ptseries', 391 )
 #endif
 
@@ -269 +270 @@
                                      start = (/ dopts_time_count /), &
                                      count = (/ 1 /) )
-             IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 392 )
+             CALL handle_netcdf_error( 'data_output_ptseries', 392 )
           ENDDO
        ENDDO