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

palm/trunk/SOURCE/diffusion_u.f90

@@ -5 +5 @@
 ! -----------------
 ! Wall functions now include diabatic conditions, call of routine wall_fluxes,
-! z0 removed from argument list
+! z0 removed from argument list, uxrp eliminated
 ! 
 ! Former revisions:
@@ -65 +65 @@
        REAL, DIMENSION(:,:),   POINTER ::  usws
        REAL, DIMENSION(:,:,:), POINTER ::  km, u, v, w
-       REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr+uxrp) ::  usvs
+       REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  usvs
 
 !
@@ -71 +71 @@
 !--    if neccessary
        IF ( topography /= 'flat' )  THEN
-          CALL wall_fluxes( usvs, 1.0, 0.0, 0.0, 0.0, uxrp, 0, nzb_u_inner, &
+          CALL wall_fluxes( usvs, 1.0, 0.0, 0.0, 0.0, nzb_u_inner, &
                             nzb_u_outer, wall_u )
        ENDIF
 
-       DO  i = nxl, nxr+uxrp
+       DO  i = nxl, nxr
           DO  j = nys,nyn
 !