Changeset 807 for palm/trunk/SOURCE/init_masks.f90

Timestamp:

Jan 25, 2012 11:53:51 AM (12 years ago)

Author:

maronga

Message:

new utility check_namelist_files implemented

File:

• palm/trunk/SOURCE/init_masks.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! New cpp directive "__check" implemented which is used by check_namelist_files
 !
 ! Former revisions:
@@ -346 +347 @@
 !--    Set global masks along all three dimensions (required by
 !--    define_netcdf_header).
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
 !
 !--    PE0 receives partial arrays from all processors of the respective mask
 !--    and outputs them. Here a barrier has to be set, because otherwise 
 !--    "-MPI- FATAL: Remote protocol queue full" may occur.
+
        CALL MPI_BARRIER( comm2d, ierr )
 
@@ -438 +440 @@
        ENDIF
 
-#else
+#elif .NOT. defined ( __parallel )
 !
 !--    Local arrays can be relocated directly.