potEnMean = potEnMean + potEnMnTile
_GLOBAL_SUM_R8(potEnMean, myThid)
potEnMean = potEnMean/theVol
CALL MON_OUT_RL(mon_string_none,potEnMean,
_RL theMax,theMean,theVolMean,potEnMean
potEnMean =0.