Ignore:
Timestamp:
Dec 18, 2015 1:56:05 PM (6 years ago)
Author:
raasch
Message:

bugfixes for calculations in statistical regions which do not contain grid points in the lowest vertical levels, mean surface level height considered in the calculation of the characteristic vertical velocity

File:
1 edited

Legend:

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

    r1683 r1738  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! bugfix: if a layer is completely filled with topography, no mean is calculated
    2222!
    2323! Former revisions:
     
    126126#endif
    127127
    128           hom(:,1,pr,0) = sums(:,pr) / ngp_2dh_s_inner(:,0)
     128          DO  k = nzb, nzt+1
     129             IF ( ngp_2dh_s_inner(k,0) /= 0 )  THEN
     130                hom(k,1,pr,0) = sums(k,pr) / ngp_2dh_s_inner(k,0)
     131             ENDIF
     132          ENDDO
    129133
    130134       ENDIF
Note: See TracChangeset for help on using the changeset viewer.