Changeset 75 for palm/trunk/SOURCE/poismg.f90

Timestamp:

Mar 22, 2007 9:54:05 AM (17 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

• palm/trunk/SOURCE/poismg.f90 (modified) (6 diffs)

palm/trunk/SOURCE/poismg.f90

@@ -8 +8 @@
 ! Actual revisions:
 ! -----------------
-! 
+! 2nd+3rd argument removed from exchange horiz
 !
 ! Former revisions:
@@ -59 +59 @@
 !
 !-- Some boundaries have to be added to divergence array
-    CALL exchange_horiz( d, 0, 0 )
+    CALL exchange_horiz( d )
     d(nzb,:,:) = d(nzb+1,:,:)
 
@@ -164 +164 @@
 !
 !-- Horizontal boundary conditions
-    CALL exchange_horiz( r, 0, 0 )
+    CALL exchange_horiz( r )
 
     IF ( bc_lr /= 'cyclic' )  THEN
@@ -257 +257 @@
 !
 !-- Horizontal boundary conditions
-    CALL exchange_horiz( f_mg, 0, 0 )
+    CALL exchange_horiz( f_mg )
 
     IF ( bc_lr /= 'cyclic' )  THEN
@@ -355 +355 @@
 !
 !-- Horizontal boundary conditions
-    CALL exchange_horiz( temp, 0, 0 )
+    CALL exchange_horiz( temp )
 
     IF ( bc_lr /= 'cyclic' )  THEN
@@ -627 +627 @@
 !
 !--       Horizontal boundary conditions
-          CALL exchange_horiz( p_mg, 0, 0 )
+          CALL exchange_horiz( p_mg )
 
           IF ( bc_lr /= 'cyclic' )  THEN