Ignore:
Timestamp:
Nov 20, 2007 9:46:11 AM (14 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/diffusivities.f90

    r98 r132  
    44! Actual revisions:
    55! -----------------
     6! Vertical scalar profiles now based on nzb_s_inner and ngp_2dh_s_inner.
    67!
    78!
     
    141142          DO  sr = 0, statistic_regions
    142143             IF ( rmask(j,i,sr) /= 0.0 )  THEN
    143                 DO  k = nzb_s_outer(j,i)+1, nzt
     144                DO  k = nzb_s_inner(j,i)+1, nzt
    144145                   sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l(k)
    145146                ENDDO
Note: See TracChangeset for help on using the changeset viewer.