79 |
& *arrMask(I,J,K,bi,bj) |
& *arrMask(I,J,K,bi,bj) |
80 |
theVolTile = theVolTile + tmpVol |
theVolTile = theVolTile + tmpVol |
81 |
theMeanTile = theMeanTile + tmpVol*tmpVal |
theMeanTile = theMeanTile + tmpVol*tmpVal |
82 |
theVarTile = theVarTile + tmpVol*tmpVal**2 |
theVarTile = theVarTile + tmpVol*tmpVal*tmpVal |
83 |
ENDIF |
ENDIF |
84 |
ENDDO |
ENDDO |
85 |
ENDDO |
ENDDO |
100 |
numPnts=NINT(tmpVal) |
numPnts=NINT(tmpVal) |
101 |
|
|
102 |
IF (tmpVal.GT.0.) THEN |
IF (tmpVal.GT.0.) THEN |
103 |
rNumPnts=1./tmpVal |
rNumPnts=1. _d 0/tmpVal |
104 |
theDel2=theDel2*rNumPnts |
theDel2=theDel2*rNumPnts |
105 |
ENDIF |
ENDIF |
106 |
|
|