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/buoyancy.f90

    r110 r132  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Vertical scalar profiles now based on nzb_s_inner and ngp_2dh_s_inner.
    77!
    88! Former revisions:
     
    258258          DO  i = nxl, nxr
    259259             DO  j =  nys, nyn
    260                 DO  k = nzb_s_outer(j,i), nzt+1
     260                DO  k = nzb_s_inner(j,i), nzt+1
    261261                   sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i)
    262262                ENDDO
     
    280280#endif
    281281
    282           hom(:,1,pr,0) = sums(:,pr) / ngp_2dh_outer(:,0)
     282          hom(:,1,pr,0) = sums(:,pr) / ngp_2dh_s_inner(:,0)
    283283
    284284       ENDIF
Note: See TracChangeset for help on using the changeset viewer.