theArea= theArea + areaTile
_GLOBAL_SUM_R8(theArea,myThid)
IF (theArea.GT.0.) THEN
theMean= theMean/theArea
theVar = theVar /theArea
_RL theVol, theArea, tmpVal, tmpAre, tmpVol
theArea= 0. _d 0
theArea = theArea + areaTile
wT_Mean = wT_Mean / theArea
wS_Mean = wS_Mean / theArea
wT_Heat = wT_Heat / theArea
theta2PE = theta2PE / theArea
_RL theArea, wT_Mean, wS_Mean, wT_Heat
theArea = 0.