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

palm/trunk/SOURCE/init_masks.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! netCDF4 without parallel file support implemented
 !
 ! Former revisions:
@@ -82 +82 @@
 !
 !-- Parallel mask output not yet tested
-    IF ( netcdf_data_format > 2 )  THEN
+    IF ( netcdf_data_format > 4 )  THEN
        message_string = 'netCDF file formats '//                         &
                         '3 (netCDF 4) and 4 (netCDF 4 Classic model)'//  &
@@ -127 +127 @@
 !
 !-- Global arrays are required by define_netcdf_header.
-    IF ( myid == 0  .OR.  netcdf_data_format > 2 )  THEN
+    IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
        ALLOCATE( mask_i_global(max_masks,nx+1), &
                  mask_j_global(max_masks,ny+1), &
@@ -412 +412 @@
        CALL MPI_BARRIER( comm2d, ierr )
        
-       IF ( netcdf_data_format > 2 )  THEN  
+       IF ( netcdf_data_format > 4 )  THEN
          
           CALL MPI_BCAST( mask_i_global(mid,:), nx+1, MPI_INTEGER, 0, comm2d, &