Changeset 807 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (5 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Current revisions:
 ! -----------------
-!
+! New cpp directive "__check" implemented which is used by check_namelist_files.
+! New parameter check_restart has been defined which is needed by 
+! check_namelist_files only.
 !
 ! Former revisions:
@@ -351 +353 @@
           w_av
  END MODULE averaging
-
 
 
@@ -520 +521 @@
                 vg_vertical_gradient_level_ind(10) = -9999, &
                 subs_vertical_gradient_level_i(10) = -9999
+
+#if defined ( __check )
+    INTEGER :: check_restart = 0
+#endif
 
     INTEGER, DIMENSION(:), ALLOCATABLE ::  grid_level_count
@@ -1255 +1260 @@
 !------------------------------------------------------------------------------!
 
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
 #if defined( __lc )
     USE MPI
@@ -1285 +1290 @@
                 type_x, type_x_int, type_xy, type_y, type_y_int
 
-    INTEGER ::  ibuf(12), pcoord(2), pdims(2), status(MPI_STATUS_SIZE)
+    INTEGER ::  ibuf(12), pcoord(2), pdims(2)
+
+#if .NOT. defined ( __check )
+    INTEGER ::  status(MPI_STATUS_SIZE)
+#endif
+
 
     INTEGER, DIMENSION(:), ALLOCATABLE ::  ngp_yz, type_xz, type_yz