_RL totSurfCorPTr(PTRACERS_num)
COMMON /PTRACERS_SURFCOR_FIELDS/ totSurfCorPTr, meanSurfCorPTr
totSurfCorPTr(iTr) = 0.0 _d 0
totSurfCorPTr(iTr) = wT_Mean(iTr)