49 real :: x,y,deposit(maxspec),ddx,ddy,xl,yl,wx,wy,w
50 integer :: ix,jy,ixp,jyp,ks,nunc,nage,kp
53 xl=(x*dx+xoutshift)/dxout
54 yl=(y*dy+youtshift)/dyout
81 if ((abs(deposit(ks)).gt.0).and.drydepspec(ks))
then
83 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. &
84 (jy.le.numygrid-1))
then
86 drygridunc(ix,jy,ks,kp,nunc,nage)= &
87 drygridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)*w
91 if ((ixp.ge.0).and.(jyp.ge.0).and.(ixp.le.numxgrid-1).and. &
92 (jyp.le.numygrid-1))
then
94 drygridunc(ixp,jyp,ks,kp,nunc,nage)= &
95 drygridunc(ixp,jyp,ks,kp,nunc,nage)+deposit(ks)*w
98 if ((ixp.ge.0).and.(jy.ge.0).and.(ixp.le.numxgrid-1).and. &
99 (jy.le.numygrid-1))
then
101 drygridunc(ixp,jy,ks,kp,nunc,nage)= &
102 drygridunc(ixp,jy,ks,kp,nunc,nage)+deposit(ks)*w
105 if ((ix.ge.0).and.(jyp.ge.0).and.(ix.le.numxgrid-1).and. &
106 (jyp.le.numygrid-1))
then
108 drygridunc(ix,jyp,ks,kp,nunc,nage)= &
109 drygridunc(ix,jyp,ks,kp,nunc,nage)+deposit(ks)*w
subroutine drydepokernel(nunc, deposit, x, y, nage, kp)