sumEmP = 0.
sumEmP = sumEmP + tileEmP
_GLOBAL_SUM_R8( sumEmP, myThid )
& *convertEmP2rUnit*sumEmP/globalArea
_RL sumEmP, tileEmP