Ignore:
Timestamp:
Nov 28, 2007 8:50:10 AM (14 years ago)
Author:
letzel
Message:

Bugfix: summation of sums_l_l in diffusivities.

File:
1 edited

Legend:

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

    r132 r137  
    44! Actual revisions:
    55! -----------------
     6! Bugfix for summation of sums_l_l for flow_statistics
    67! Vertical scalar profiles now based on nzb_s_inner and ngp_2dh_s_inner.
    78!
     
    140141!
    141142!--       Summation for averaged profile (cf. flow_statistics)
     143!--       (the IF statement still requires a performance check on NEC machines)
    142144          DO  sr = 0, statistic_regions
    143              IF ( rmask(j,i,sr) /= 0.0 )  THEN
     145             IF ( rmask(j,i,sr) /= 0.0 .AND.  &
     146                  i >= nxl .AND. i <= nxr .AND. j >= nys .AND. j <= nyn )  THEN
    144147                DO  k = nzb_s_inner(j,i)+1, nzt
    145148                   sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l(k)
Note: See TracChangeset for help on using the changeset viewer.