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

Timestamp:

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

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (5 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! netcdf variables and module name changed,
+! check of netcdf precision removed (is done in the netcdf module)
 !
 ! Former revisions:
@@ -312 +313 @@
     USE kinds
     USE model_1d
-    USE netcdf_control
+    USE netcdf_interface,                                                      &
+        ONLY:  dopr_unit, do2d_unit, do3d_unit, netcdf_data_format,            &
+               netcdf_data_format_string
     USE particle_attributes
     USE pegrid
@@ -350 +353 @@
     
     LOGICAL     ::  found                            !< 
-    LOGICAL     ::  ldum                             !< 
     
     REAL(wp)    ::  gradient                         !< 
@@ -3733 +3735 @@
     SELECT CASE ( netcdf_data_format )
        CASE ( 1 )
-          output_format_netcdf = 'netCDF classic'
+          netcdf_data_format_string = 'netCDF classic'
        CASE ( 2 )
-          output_format_netcdf = 'netCDF 64bit offset'
+          netcdf_data_format_string = 'netCDF 64bit offset'
        CASE ( 3 )
-          output_format_netcdf = 'netCDF4/HDF5'
+          netcdf_data_format_string = 'netCDF4/HDF5'
        CASE ( 4 )
-          output_format_netcdf = 'netCDF4/HDF5 classic'
+          netcdf_data_format_string = 'netCDF4/HDF5 classic'
        CASE ( 5 )
-          output_format_netcdf = 'parallel netCDF4/HDF5'
+          netcdf_data_format_string = 'parallel netCDF4/HDF5'
        CASE ( 6 )
-          output_format_netcdf = 'parallel netCDF4/HDF5 classic'
+          netcdf_data_format_string = 'parallel netCDF4/HDF5 classic'
 
     END SELECT
@@ -3864 +3866 @@
     ENDIF
 
-#if ! defined( __check )
-!
-!-- Check netcdf precison
-    ldum = .FALSE.
-    CALL define_netcdf_header( 'ch', ldum, 0 )
-#endif
 !
 !-- Check, whether a constant diffusion coefficient shall be used