Changeset 841 for palm/trunk/SOURCE/exchange_horiz.f90

Timestamp:

Feb 28, 2012 12:29:49 PM (12 years ago)

Author:

maronga

Message:

further adjustments and bugfixes for the namelist file check

File:

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

palm/trunk/SOURCE/exchange_horiz.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Excluded routine from compilation of namelist_file_check
 !
 ! Former revisions:
@@ -59 +59 @@
     IMPLICIT NONE
 
+
+    INTEGER ::  nbgp_local
+    REAL, DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local, &
+                    nxl-nbgp_local:nxr+nbgp_local) ::  ar
+
+#if ! defined( __check )
 #if defined( __parallel )
     INTEGER, DIMENSION(4)                 ::  req
     INTEGER, DIMENSION(MPI_STATUS_SIZE,4) ::  wait_stat
 #endif
-    INTEGER ::  nbgp_local
-    REAL, DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local, &
-                    nxl-nbgp_local:nxr+nbgp_local) ::  ar
+
 
     CALL cpu_log( log_point_s(2), 'exchange_horiz', 'start' )
@@ -187 +191 @@
     CALL cpu_log( log_point_s(2), 'exchange_horiz', 'stop' )
 
-
+#endif
  END SUBROUTINE exchange_horiz