Changeset 263 for palm/trunk/SOURCE/data_output_spectra.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_spectra.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_spectra.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Output of NetCDF messages with aid of message handling routine.
 ! Output of messages replaced by message handling routine.
 !
@@ -66 +67 @@
        nc_stat = NF90_PUT_VAR( id_set_sp, id_var_time_sp, (/ simulated_time /),&
                                start = (/ dosp_time_count /), count = (/ 1 /) )
-       IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 47 )
+       CALL handle_netcdf_error( 'data_output_spectra', 47 )
 #endif
 
@@ -225 +226 @@
                                   start = (/ 1, k, dosp_time_count /), &
                                   count = (/ nx/2, 1, 1 /) )
-          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 348 )
+          CALL handle_netcdf_error( 'data_output_spectra', 348 )
 
        ENDDO
@@ -243 +244 @@
                                   start = (/ 1, k, dosp_time_count /), &
                                   count = (/ ny/2, 1, 1 /) )
-          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 349 )
+          CALL handle_netcdf_error( 'data_output_spectra', 349 )
 
        ENDDO