LOGICAL noPnts
noPnts=.TRUE.
IF (tmpVal.NE.0. .AND. noPnts) THEN
noPnts=.FALSE.
IF ( noPnts ) theMin = theMean
IF ( noPnts ) theMax = theMean
IF (arrMask(I,J,K,bi,bj).NE.0. .AND. noPnts) THEN
IF ( noPnts(n) ) theMin(n) = theMean(n)
IF ( noPnts(n) ) theMax(n) = theMin(n)
LOGICAL noPnts(Ny)
noPnts(n)=.TRUE.
IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN
noPnts(n)=.FALSE.