wT_Heat = wT_Heat + wH_Tile
_GLOBAL_SUM_R8(wT_Heat,myThid)
wT_Heat = wT_Heat / theArea
wT_Heat = wT_Heat * rhoConst*recip_horiVertRatio
CALL MON_OUT_RL( '_Heat' , wT_Heat, mon_foot_mean ,myThid)
_RL theArea, wT_Mean, wS_Mean, wT_Heat
wT_Heat = 0.