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

Timestamp:

Mar 6, 2016 6:36:17 PM (8 years ago)

Author:

raasch

Message:

NetCDF routines modularized; new parameter netcdf_deflate; further changes in the pmc

File:

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

palm/trunk/SOURCE/data_output_ptseries.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! netcdf module name changed + related changes
 ! 
 ! Former revisions:
@@ -81 +81 @@
     USE kinds
 
-    USE netcdf_control
+#if defined( __netcdf )
+    USE NETCDF
+#endif
+
+    USE netcdf_interface,                                                      &
+        ONLY:  dopts_num, id_set_pts, id_var_dopts, id_var_time_pts, nc_stat,  &
+               netcdf_handle_error
 
     USE particle_attributes,                                                   &
@@ -116 +122 @@
                                (/ time_since_reference_point /), &
                                start = (/ dopts_time_count /), count = (/ 1 /) )
-       CALL handle_netcdf_error( 'data_output_ptseries', 391 )
+       CALL netcdf_handle_error( 'data_output_ptseries', 391 )
 #endif
 
@@ -375 +381 @@
                                      start = (/ dopts_time_count /), &
                                      count = (/ 1 /) )
-             CALL handle_netcdf_error( 'data_output_ptseries', 392 )
+             CALL netcdf_handle_error( 'data_output_ptseries', 392 )
           ENDDO
        ENDDO