FWF2HFsiGlob=0. _d 0
CALL GLOBAL_SUM_TILE_RL(FWF2HFsiTile, FWF2HFsiGlob, myThid)
FWF2HFsiGlob=HeatCapacity_Cp * temp_EvPrRn * globalArea
tmpscal1=FWFsiGlob / globalArea * FWF2HFsiGlob / globalArea
_RL FWF2HFsiGlob