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

Timestamp:

Nov 28, 2007 8:50:10 AM (17 years ago)

Author:

letzel

Message:

Bugfix: summation of sums_l_l in diffusivities.

File:

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

palm/trunk/SOURCE/diffusivities.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix for summation of sums_l_l for flow_statistics
 ! Vertical scalar profiles now based on nzb_s_inner and ngp_2dh_s_inner.
 ! 
@@ -140 +141 @@
 !
 !--       Summation for averaged profile (cf. flow_statistics)
+!--       (the IF statement still requires a performance check on NEC machines)
           DO  sr = 0, statistic_regions
-             IF ( rmask(j,i,sr) /= 0.0 )  THEN
+             IF ( rmask(j,i,sr) /= 0.0 .AND.  &
+                  i >= nxl .AND. i <= nxr .AND. j >= nys .AND. j <= nyn )  THEN
                 DO  k = nzb_s_inner(j,i)+1, nzt
                    sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l(k)