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

palm/trunk/SOURCE/disturb_field.f90

@@ -1 @@
- SUBROUTINE disturb_field( nzb_uv_inner, dist1, field, xrp, ynp )
+ SUBROUTINE disturb_field( nzb_uv_inner, dist1, field )
 
 !------------------------------------------------------------------------------!
 ! Actual revisions:
 ! -----------------
-! 
+! xrp, ynp eliminated, 2nd+3rd argument removed from exchange horiz
 !
 ! Former revisions:
@@ -36 +36 @@
     IMPLICIT NONE
 
-    INTEGER ::  i, j, k, xrp, ynp
+    INTEGER ::  i, j, k
     INTEGER ::  nzb_uv_inner(nys-1:nyn+1,nxl-1:nxr+1)
 
     REAL    ::  randomnumber,                             &
                 dist1(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1), &
-                field(nzb:nzt+1,nys-1:nyn+ynp+1,nxl-1:nxr+xrp+1)
+                field(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
     REAL, DIMENSION(:,:,:), ALLOCATABLE ::  dist2
 
@@ -94 +94 @@
 !
 !-- Exchange of ghost points for the random perturbation
-    CALL exchange_horiz( dist1, 0, 0 )
+    CALL exchange_horiz( dist1 )
 
 !
@@ -114 +114 @@
 !-- Exchange of ghost points for the filtered perturbation.
 !-- Afterwards, filter operation and exchange of ghost points are repeated.
-    CALL exchange_horiz( dist2, 0, 0 )
+    CALL exchange_horiz( dist2 )
     DO  i = nxl, nxr
        DO  j = nys, nyn
@@ -125 +125 @@
        ENDDO
     ENDDO
-    CALL exchange_horiz( dist1, 0, 0 )
+    CALL exchange_horiz( dist1 )
 
 !