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

Timestamp:

Oct 19, 2012 2:35:30 PM (12 years ago)

Author:

raasch

Message:

netCDF4 without parallel file support implemented
additional define string netcdf4_parallel is required to switch on parallel file support

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! check of netcdf4 parallel file support
 !
 ! Former revisions:
@@ -2847 +2847 @@
 
        ENDDO
+    ENDIF
+
+!
+!-- Set output format string (used in header)
+    IF ( netcdf_output )  THEN
+
+       SELECT CASE ( netcdf_data_format )
+          CASE ( 1 )
+             output_format_netcdf = 'netCDF classic'
+          CASE ( 2 )
+             output_format_netcdf = 'netCDF 64bit offset'
+          CASE ( 3 )
+             output_format_netcdf = 'netCDF4/HDF5'
+          CASE ( 4 )
+             output_format_netcdf = 'netCDF4/HDF5 classic'
+          CASE ( 5 )
+             output_format_netcdf = 'parallel netCDF4/HDF5'
+          CASE ( 6 )
+             output_format_netcdf = 'parallel netCDF4/HDF5 classic'
+
+       END SELECT
 
     ENDIF
@@ -2882 +2903 @@
 !-- Check the NetCDF data format
 #if ! defined ( __check )
-    IF ( netcdf_data_format > 2 )  THEN
+    IF ( netcdf_data_format > 2  .AND.  netcdf_data_format < 5 )  THEN
 #if defined( __netcdf4 )
        CONTINUE
 #else
-       message_string = 'NetCDF: NetCDF4 format requested but no ' // &
+       message_string = 'netCDF: netCDF4 format requested but no ' // &
                         'cpp-directive __netcdf4 given & switch '  // &
                         'back to 64-bit offset format'
@@ -2893 +2914 @@
 #endif
     ENDIF
+    IF ( netcdf_data_format > 4 )  THEN
+#if defined( __netcdf4 ) && defined( __netcdf4_parallel )
+       CONTINUE
+#else
+       message_string = 'netCDF: netCDF4 parallel output requested but no ' // &
+                        'cpp-directive __netcdf4_parallel given & switch '  // &
+                        'back to netCDF4 non-parallel output'
+       CALL message( 'check_parameters', 'PA0099', 0, 1, 0, 6, 0 )
+       netcdf_data_format = netcdf_data_format - 2
 #endif
-!
+    ENDIF
+#endif
 
 #if ! defined( __check )
+!
 !-- Check netcdf precison
     ldum = .FALSE.