_RL meanSurfCorPTr(PTRACERS_num)
COMMON /PTRACERS_SURFCOR_FIELDS/ totSurfCorPTr, meanSurfCorPTr
& +meanSurfCorPTr(iTracer)*recip_drF(k)
meanSurfCorPTr(iTr) = 0.0 _d 0
meanSurfCorPTr(iTr) = wT_Mean(iTr) / globalArea
meanSurfCorPTr(k) = 0.0 _d 0