75 |
& ) |
& ) |
76 |
numPnts=numPnts+1 |
numPnts=numPnts+1 |
77 |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
78 |
|
& *arrMask(I,J,K,bi,bj) |
79 |
theVol = theVol + tmpVol |
theVol = theVol + tmpVol |
80 |
theMean = theMean + tmpVol*tmpVal |
theMean = theMean + tmpVol*tmpVal |
81 |
theVar = theVar + tmpVol*tmpVal**2 |
theVar = theVar + tmpVol*tmpVal**2 |
116 |
c IF (tmpVal.NE.0.) THEN |
c IF (tmpVal.NE.0.) THEN |
117 |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
118 |
tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
119 |
|
& *arrMask(I,J,K,bi,bj) |
120 |
theSD = theSD + tmpVol*(tmpVal-theMean)**2 |
theSD = theSD + tmpVol*(tmpVal-theMean)**2 |
121 |
ENDIF |
ENDIF |
122 |
ENDDO |
ENDDO |