Changeset 132 for palm/trunk/SOURCE/diffusivities.f90

Timestamp:

Nov 20, 2007 9:46:11 AM (16 years ago)

Author:

letzel

Message:

Vertical profiles now based on nzb_s_inner; they are divided by
ngp_2dh_s_inner (scalars, procucts of scalars and velocity components) and
ngp_2dh (staggered velocity components and their products), respectively.

Allow new case bc_uv_t = 'dirichlet_0' for channel flow.

File:

• palm/trunk/SOURCE/diffusivities.f90 (modified) (2 diffs)

palm/trunk/SOURCE/diffusivities.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Vertical scalar profiles now based on nzb_s_inner and ngp_2dh_s_inner.
 ! 
 ! 
@@ -141 +142 @@
           DO  sr = 0, statistic_regions
              IF ( rmask(j,i,sr) /= 0.0 )  THEN
-                DO  k = nzb_s_outer(j,i)+1, nzt
+                DO  k = nzb_s_inner(j,i)+1, nzt
                    sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l(k)
                 ENDDO