49 real :: x,y,deposit(maxspec),ddx,ddy,xl,yl,wx,wy,w
50 integer :: ix,jy,ixp,jyp,nunc,nage,ks,kp
52 xl=(x*dx+xoutshift)/dxout
53 yl=(y*dy+youtshift)/dyout
81 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. &
82 (jy.le.numygrid-1))
then
84 wetgridunc(ix,jy,ks,kp,nunc,nage)= &
85 wetgridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)*w
88 if ((ixp.ge.0).and.(jyp.ge.0).and.(ixp.le.numxgrid-1).and. &
89 (jyp.le.numygrid-1))
then
91 wetgridunc(ixp,jyp,ks,kp,nunc,nage)= &
92 wetgridunc(ixp,jyp,ks,kp,nunc,nage)+deposit(ks)*w
95 if ((ixp.ge.0).and.(jy.ge.0).and.(ixp.le.numxgrid-1).and. &
96 (jy.le.numygrid-1))
then
98 wetgridunc(ixp,jy,ks,kp,nunc,nage)= &
99 wetgridunc(ixp,jy,ks,kp,nunc,nage)+deposit(ks)*w
102 if ((ix.ge.0).and.(jyp.ge.0).and.(ix.le.numxgrid-1).and. &
103 (jyp.le.numygrid-1))
then
105 wetgridunc(ix,jyp,ks,kp,nunc,nage)= &
106 wetgridunc(ix,jyp,ks,kp,nunc,nage)+deposit(ks)*w
subroutine wetdepokernel(nunc, deposit, x, y, nage, kp)