numPnts=numPnts+1.
_GLOBAL_SUM_RL(numPnts,myThid)
IF (numPnts.NE.0.) theMean=theMean/numPnts
_RL numPnts,theVol,tmpVal, mskp1, msk_1
numPnts=0.
tmpVal=FLOAT(numPnts)
numPnts=NINT(tmpVal)
INTEGER numPnts
numPnts=0
numPnts=numPnts+1
numPnts= 0