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

palm/trunk/SOURCE/exchange_horiz_2d.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Excluded routine from compilation of namelist_file_check
 !
 ! Former revisions:
@@ -48 +48 @@
     IMPLICIT NONE
 
+
     REAL ::  ar(nysg:nyng,nxlg:nxrg)
     INTEGER :: i
 
-
+#if ! defined( __check )
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'start' )
 
@@ -146 +147 @@
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'stop' )
 
+#endif
  END SUBROUTINE exchange_horiz_2d
 
@@ -170 +172 @@
     INTEGER :: i
 
+#if ! defined( __check )
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'start' )
 
@@ -239 +242 @@
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'stop' )
 
+#endif
  END SUBROUTINE exchange_horiz_2d_int