numPnts=numPnts+1
CALL GLOBAL_SUM_INT( numPnts, myThid )
IF ( numPnts.GT.0 ) THEN
tmpVal = FLOAT(numPnts)
INTEGER numPnts
numPnts= 0
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)
numPnts=0
numPnts=INT(tmpVal+0.5)