FWFsiGlob=0. _d 0
& CALL GLOBAL_SUM_TILE_RL( FWFsiTile, FWFsiGlob, myThid )
tmpscal0=FWFsiGlob / globalArea
tmpscal1=FWFsiGlob / globalArea * FWF2HFsiGlob / globalArea
_RL FWFsiGlob