Changeset 20 for palm/trunk/SOURCE/diffusion_w.f90

Timestamp:

Feb 26, 2007 12:12:32 AM (17 years ago)

Author:

raasch

Message:

new parameter use_top_fluxes, Bugfix: ddzw dimensioned 1:nzt+1

File:

• palm/trunk/SOURCE/diffusion_w.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diffusion_w.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: ddzw dimensioned 1:nzt"+1"
 !
 ! Former revisions:
@@ -51 +51 @@
        REAL    ::  kmxm_x, kmxm_z, kmxp_x, kmxp_z, kmym_y, kmym_z, kmyp_y, &
                    kmyp_z, wsus, wsvs
-       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt), km_damp_x(nxl-1:nxr+1), &
+       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)
@@ -199 +199 @@
        REAL    ::  kmxm_x, kmxm_z, kmxp_x, kmxp_z, kmym_y, kmym_z, kmyp_y, &
                    kmyp_z, wsus, wsvs
-       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt), km_damp_x(nxl-1:nxr+1), &
+       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)