_RL totSurfCorPTr(PTRACERS_num)
COMMON /PTRACERS_SURFCOR_FIELDS/ totSurfCorPTr
totSurfCorPTr(iTr) = 0.0 _d 0
CALL GLOBAL_SUM_TILE_RL( wT_Tile(1,1,itr), totSurfCorPTr(iTr),