Ignore:
Timestamp:
Dec 4, 2007 12:36:44 PM (14 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:
1 edited

Legend:

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

    r139 r142  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: divide sums(k,8) (e) and sums(k,34) (e*) by ngp_2dh_s_inner(k,sr)
     7! (like other scalars)
    78!
    89! Former revisions:
     
    785786       DO  k = nzb, nzt+1
    786787          sums(k,3)               = sums(k,3)           / ngp_2dh(sr)
    787           sums(k,9:11)            = sums(k,9:11)        / ngp_2dh_s_inner(k,sr)
     788          sums(k,8:11)            = sums(k,8:11)        / ngp_2dh_s_inner(k,sr)
    788789          sums(k,12:22)           = sums(k,12:22)       / ngp_2dh(sr)
    789790          sums(k,23:29)           = sums(k,23:29)       / ngp_2dh_s_inner(k,sr)
    790791          sums(k,30:32)           = sums(k,30:32)       / ngp_2dh(sr)
    791           sums(k,33)              = sums(k,33)          / ngp_2dh_s_inner(k,sr)
    792           sums(k,34:39)           = sums(k,34:39)       / ngp_2dh(sr)
     792          sums(k,33:34)           = sums(k,33:34)       / ngp_2dh_s_inner(k,sr)
     793          sums(k,35:39)           = sums(k,35:39)       / ngp_2dh(sr)
    793794          sums(k,40)              = sums(k,40)          / ngp_2dh_s_inner(k,sr)
    794795          sums(k,45:53)           = sums(k,45:53)       / ngp_2dh(sr)
Note: See TracChangeset for help on using the changeset viewer.