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

palm/trunk/SOURCE/diffusion_e.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix: ddzw dimensioned 1:nzt"+1"
 ! Calculation extended for gridpoint nzt
 !
@@ -51 +52 @@
        INTEGER ::  i, j, k
        REAL            ::  dpt_dz, l_stable, phi_m
-       REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt), &
+       REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt+1), &
                            l_grid(1:nzt), zu(0:nzt+1)
        REAL, DIMENSION(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) :: diss, tend
@@ -166 +167 @@
        INTEGER         ::  i, j, k
        REAL            ::  dpt_dz, l_stable, phi_m
-       REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt), &
+       REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt+1), &
                            l_grid(1:nzt), zu(0:nzt+1)
        REAL, DIMENSION(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ::  diss, tend