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

palm/trunk/SOURCE/data_output_spectra.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! name change of netcdf routines and module + related changes
 ! 
 ! Former revisions:
@@ -69 +69 @@
  SUBROUTINE data_output_spectra
  
+#if defined( __netcdf )
 #if defined( __spectra )
 
@@ -81 +82 @@
     USE kinds
 
-    USE netcdf_control
+    USE NETCDF
+
+    USE netcdf_interface,                                                      &
+        ONLY:  id_set_sp, id_var_time_sp, nc_stat, netcdf_handle_error
 
     USE pegrid
@@ -116 +120 @@
        dosp_time_count = dosp_time_count + 1
 
-#if defined( __netcdf )
 !
 !--    Update the spectra time axis
@@ -122 +125 @@
                                (/ time_since_reference_point /), &
                                start = (/ dosp_time_count /), count = (/ 1 /) )
-       CALL handle_netcdf_error( 'data_output_spectra', 47 )
-#endif
+       CALL netcdf_handle_error( 'data_output_spectra', 47 )
 
 !
@@ -201 +203 @@
 
 #endif
+#endif
  END SUBROUTINE data_output_spectra
 
@@ -226 +229 @@
     USE kinds
 
-    USE netcdf_control
+    USE NETCDF
+
+    USE netcdf_interface,                                                      &
+        ONLY:  id_set_sp, id_var_dospx, id_var_dospy, nc_stat,                 &
+               netcdf_handle_error
 
     USE spectrum,                                                              &
@@ -261 +268 @@
                                   start = (/ 1, k, dosp_time_count /), &
                                   count = (/ nx/2, 1, 1 /) )
-          CALL handle_netcdf_error( 'data_output_spectra', 348 )
+          CALL netcdf_handle_error( 'data_output_spectra', 348 )
 
        ENDDO
@@ -279 +286 @@
                                   start = (/ 1, k, dosp_time_count /), &
                                   count = (/ ny/2, 1, 1 /) )
-          CALL handle_netcdf_error( 'data_output_spectra', 349 )
+          CALL netcdf_handle_error( 'data_output_spectra', 349 )
 
        ENDDO