_RL plumeEtend(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
plumeEtend(i,j) = SPforcingT(i,j,k,bi,bj)
gT_arr(i,j) = gT_arr(i,j) + plumeEtend(I,J)
plumeEtend(i,j) = 0. _d 0
& plumeEtend,'oceEPtnd',k,1,2,bi,bj,myThid )