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

Timestamp:

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

Author:

maronga

Message:

new utility check_namelist_files implemented

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (5 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! New cpp directive "__check" implemented which is used by check_namelist_files
 !
 ! Former revisions:
@@ -534 +534 @@
 
              ENDIF
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
              CALL MPI_BARRIER( comm2d, ierr )
 #endif
@@ -739 +739 @@
           ENDIF
        ENDDO
-
+#if .NOT. defined ( __check )
 !
 !--    Exchange of lateral boundary values (parallel computers) and cyclic
@@ -766 +766 @@
           
        ENDIF
-
+#endif
     ENDIF
 
+#if .NOT. defined ( __check )
 !
 !-- Preliminary: to be removed after completion of the topography code!
@@ -1160 +1161 @@
                 nzb_tmp, vertical_influence, wall_l, wall_n, wall_r, wall_s )
 
+#endif
 
  END SUBROUTINE init_grid