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

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Output of NetCDF messages with aid of message handling routine.
 ! Output of messages replaced by message handling routine
 ! Bugfix: error in check, if particles moved further than one subdomain length.
@@ -3594 +3595 @@
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_time_prt, (/ simulated_time /), &
                             start = (/ prt_time_count /), count = (/ 1 /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 1 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 1 )
 
 !
@@ -3601 +3602 @@
                             (/ number_of_particles /),   &
                             start = (/ prt_time_count /), count = (/ 1 /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 2 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 2 )
 
 !
@@ -3608 +3609 @@
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 3 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 3 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(2), particles%dvrp_psize,  &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 4 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 4 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(3), particles%origin_x,    &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 5 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 5 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(4), particles%origin_y,    &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 6 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 6 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(5), particles%origin_z,    &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 7 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 7 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(6), particles%radius,      &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 8 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 8 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(7), particles%speed_x,     &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 9 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 9 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(8), particles%speed_y,     &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 10 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 10 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(9), particles%speed_z,     &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 11 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 11 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt,id_var_prt(10),particles%weight_factor,&
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 12 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 12 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(11), particles%x,           &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 13 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 13 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(12), particles%y,          & 
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 14 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 14 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(13), particles%z,          &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 15 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 15 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(14), particles%color,      &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 16 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 16 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(15), particles%group,      &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 17 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 17 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(16), particles%tailpoints, &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 18 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 18 )
 
     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(17), particles%tail_id,    &
                             start = (/ 1, prt_time_count /),                  &
                             count = (/ maximum_number_of_particles /) )
-    IF (nc_stat /= NF90_NOERR)  CALL handle_netcdf_error( 19 )
+    CALL handle_netcdf_error( 'output_particles_netcdf', 19 )
 
 #endif