Changeset 142 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Dec 4, 2007 12:36:44 PM (16 years ago)

Author:

letzel

Message:

Bugfix in plant_canopy_model: remove IF statement in plant_canopy_model_ij
Bugfix in flow_statistics: divide sums(k,8) (e) and sums(k,34) (e*) by
ngp_2dh_s_inner(k,sr) (like other scalars)

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: divide sums(k,8) (e) and sums(k,34) (e*) by ngp_2dh_s_inner(k,sr) 
+! (like other scalars)
 !
 ! Former revisions:
@@ -785 +786 @@
        DO  k = nzb, nzt+1
           sums(k,3)               = sums(k,3)           / ngp_2dh(sr)
-          sums(k,9:11)            = sums(k,9:11)        / ngp_2dh_s_inner(k,sr)
+          sums(k,8:11)            = sums(k,8:11)        / ngp_2dh_s_inner(k,sr)
           sums(k,12:22)           = sums(k,12:22)       / ngp_2dh(sr)
           sums(k,23:29)           = sums(k,23:29)       / ngp_2dh_s_inner(k,sr)
           sums(k,30:32)           = sums(k,30:32)       / ngp_2dh(sr)
-          sums(k,33)              = sums(k,33)          / ngp_2dh_s_inner(k,sr)
-          sums(k,34:39)           = sums(k,34:39)       / ngp_2dh(sr)
+          sums(k,33:34)           = sums(k,33:34)       / ngp_2dh_s_inner(k,sr)
+          sums(k,35:39)           = sums(k,35:39)       / ngp_2dh(sr)
           sums(k,40)              = sums(k,40)          / ngp_2dh_s_inner(k,sr)
           sums(k,45:53)           = sums(k,45:53)       / ngp_2dh(sr)