Changeset 57 for palm/trunk/SOURCE/diffusion_v.f90

Timestamp:

Mar 9, 2007 12:05:41 PM (17 years ago)

Author:

raasch

Message:

preliminary update of further changes, advec_particles is not running!

File:

• palm/trunk/SOURCE/diffusion_v.f90 (modified) (5 diffs)

palm/trunk/SOURCE/diffusion_v.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Wall functions now include diabatic conditions, call of routine wall_fluxes
+! Wall functions now include diabatic conditions, call of routine wall_fluxes,
+! z0 removed from argument list
 !
 ! Former revisions:
@@ -48 +49 @@
 ! Call for all grid points
 !------------------------------------------------------------------------------!
-    SUBROUTINE diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w, z0 )
+    SUBROUTINE diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w )
 
        USE control_parameters
@@ -59 +60 @@
        REAL    ::  kmxm_x, kmxm_y, kmxp_x, kmxp_y, kmzm, kmzp
        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1)
-       REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
        REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
        REAL, DIMENSION(:,:),   POINTER ::  vsws
@@ -205 +205 @@
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_v_ij( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v, &
-                               vsws, w, z0 )
+                               vsws, w )
 
        USE control_parameters
@@ -216 +216 @@
        REAL    ::  kmxm_x, kmxm_y, kmxp_x, kmxp_y, kmzm, kmzp
        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1)
-       REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
        REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
        REAL, DIMENSION(nzb:nzt+1)      ::  vsus