Changeset 765

Timestamp:

Oct 10, 2011 6:28:24 AM (13 years ago)

Author:

raasch

Message:

Bugfix concerning opening of 3D files in restart runs in case of netCDF4

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Bugfix concerning opening of 3D files in restart runs in case of netCDF4
 !
 ! Former revisions:
@@ -1117 +1118 @@
 !
 !--          Open an existing NetCDF file for output
+             IF ( netcdf_data_format < 3 )  THEN 
+                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av) )
+             ELSE
 #if defined( __netcdf4 )
-             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av), &
-                                  COMM = comm2d, INFO = MPI_INFO_NULL )
-#else
-             nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av) )
-#endif
+                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av), &
+                                     COMM = comm2d, INFO = MPI_INFO_NULL )
+#endif
+             ENDIF
              CALL handle_netcdf_error( 'check_open', 35 )
 !