23 (nunc,deposit,x,y,nage,kp)
54 real :: x,y,deposit(maxspec),ddx,ddy,xl,yl,wx,wy,w
55 integer :: ix,jy,ixp,jyp,ks,kp,nunc,nage
59 xl=(x*dx+xoutshiftn)/dxoutn
60 yl=(y*dy+youtshiftn)/dyoutn
88 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgridn-1).and. &
89 (jy.le.numygridn-1))
then
91 wetgriduncn(ix,jy,ks,kp,nunc,nage)= &
92 wetgriduncn(ix,jy,ks,kp,nunc,nage)+deposit(ks)*w
95 if ((ixp.ge.0).and.(jyp.ge.0).and.(ixp.le.numxgridn-1).and. &
96 (jyp.le.numygridn-1))
then
98 wetgriduncn(ixp,jyp,ks,kp,nunc,nage)= &
99 wetgriduncn(ixp,jyp,ks,kp,nunc,nage)+deposit(ks)*w
102 if ((ixp.ge.0).and.(jy.ge.0).and.(ixp.le.numxgridn-1).and. &
103 (jy.le.numygridn-1))
then
105 wetgriduncn(ixp,jy,ks,kp,nunc,nage)= &
106 wetgriduncn(ixp,jy,ks,kp,nunc,nage)+deposit(ks)*w
109 if ((ix.ge.0).and.(jyp.ge.0).and.(ix.le.numxgridn-1).and. &
110 (jyp.le.numygridn-1))
then
112 wetgriduncn(ix,jyp,ks,kp,nunc,nage)= &
113 wetgriduncn(ix,jyp,ks,kp,nunc,nage)+deposit(ks)*w
subroutine wetdepokernel_nest(nunc, deposit, x, y, nage, kp)