TsurfCor = wT_Mean / globalArea
SsurfCor = wS_Mean / globalArea
IF ( globalArea.GT.0. ) THEN
CALL WRITE_0D_RL( globalArea, INDEX_NONE, 'globalArea =',
sbobp = sbobp / globalArea
meanCellArea = globalArea / meanCellArea
& * globalArea / deltaTmom
& 'cg2dTolerance =', cg2dTolerance, ' (Area=',globalArea,')'
globalArea = threadArea
IF (globalArea.GT.0.) tmpFac =
& freeSurfFac*deltaTfreesurf*mass2rUnit*sumEmP/globalArea
norm_factor = globalArea * secYr / dtcouplo
gsm_tracer=sumTracer/globalArea
& gravitySign, rkSign, globalArea
_RL globalArea