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

palm/trunk/SOURCE/diffusion_w.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:
@@ -46 +47 @@
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_w( ddzu, ddzw, km, km_damp_x, km_damp_y, tend, u, v, &
-                            w, z0 )
+                            w )
 
        USE control_parameters
@@ -59 +60 @@
        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1), &
                    km_damp_y(nys-1:nyn+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 ::  km, u, v, w
@@ -194 +194 @@
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_w_ij( i, j, ddzu, ddzw, km, km_damp_x, km_damp_y, &
-                               tend, u, v, w, z0 )
+                               tend, u, v, w )
 
        USE control_parameters
@@ -207 +207 @@
        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1), &
                    km_damp_y(nys-1:nyn+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)      ::  wsus, wsvs