Changeset 75 for palm/trunk/SOURCE/init_rankine.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/init_rankine.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_rankine.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! uxrp, vynp eliminated, 2nd+3rd argument removed from exchange horiz
 !
 ! Former revisions:
@@ -129 +129 @@
 !
 !-- Exchange of boundary values for the velocities.
-    CALL exchange_horiz( u, uxrp,    0 )
-    CALL exchange_horiz( v,    0, vynp )
+    CALL exchange_horiz( u )
+    CALL exchange_horiz( v )
 !
 !-- Make velocity field nondivergent.