Changeset 1031 for palm/trunk/SOURCE/close_file.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/close_file.f90 (modified) (10 diffs)

palm/trunk/SOURCE/close_file.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! netCDF4 without parallel file support implemented
 !
 ! Former revisions:
@@ -189 +189 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_xy(0) )
                    CALL handle_netcdf_error( 'close_file', 44 )
@@ -197 +197 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_xz(0) )
                    CALL handle_netcdf_error( 'close_file', 45 )
@@ -205 +205 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_yz(0) )
                    CALL handle_netcdf_error( 'close_file', 46 )
@@ -227 +227 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_3d(0) )
                    CALL handle_netcdf_error( 'close_file', 49 )
@@ -256 +256 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_xy(1) )
                    CALL handle_netcdf_error( 'close_file', 52 )
@@ -264 +264 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_xz(1) )
                    CALL handle_netcdf_error( 'close_file', 352 )
@@ -272 +272 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_yz(1) )
                    CALL handle_netcdf_error( 'close_file', 353 )
@@ -280 +280 @@
 
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
                    nc_stat = NF90_CLOSE( id_set_3d(1) )
                    CALL handle_netcdf_error( 'close_file', 353 )
@@ -288 +288 @@
              
                 IF ( netcdf_output  .AND.  &
-                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
+                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
 !
 !--                decompose fid into mid and av