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

palm/trunk/SOURCE/diffusion_v.f90

@@ -5 +5 @@
 ! -----------------
 ! Wall functions now include diabatic conditions, call of routine wall_fluxes,
-! z0 removed from argument list
+! z0 removed from argument list, vynp eliminated
 !
 ! Former revisions:
@@ -63 +63 @@
        REAL, DIMENSION(:,:),   POINTER ::  vsws
        REAL, DIMENSION(:,:,:), POINTER ::  km, u, v, w
-       REAL, DIMENSION(nzb:nzt+1,nys:nyn+vynp,nxl:nxr) ::  vsus
+       REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  vsus
 
 !
@@ -69 +69 @@
 !--    if neccessary
        IF ( topography /= 'flat' )  THEN
-          CALL wall_fluxes( vsus, 0.0, 1.0, 0.0, 0.0, 0, vynp, nzb_v_inner, &
+          CALL wall_fluxes( vsus, 0.0, 1.0, 0.0, 0.0, nzb_v_inner, &
                             nzb_v_outer, wall_v )
        ENDIF
 
        DO  i = nxl, nxr
-          DO  j = nys, nyn+vynp
+          DO  j = nys, nyn
 !
 !--          Compute horizontal diffusion