52 real :: x,y,deposit(maxspec),ddx,ddy,xl,yl,wx,wy,w
53 integer :: ix,jy,ixp,jyp,ks,kp,nunc,nage
57 xl=(x*dx+xoutshiftn)/dxoutn
58 yl=(y*dy+youtshiftn)/dyoutn
85 if (drydepspec(ks).and.(abs(deposit(ks)).gt.0))
then
87 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgridn-1).and. &
88 (jy.le.numygridn-1))
then
90 drygriduncn(ix,jy,ks,kp,nunc,nage)= &
91 drygriduncn(ix,jy,ks,kp,nunc,nage)+deposit(ks)*w
94 if ((ixp.ge.0).and.(jyp.ge.0).and.(ixp.le.numxgridn-1).and. &
95 (jyp.le.numygridn-1))
then
97 drygriduncn(ixp,jyp,ks,kp,nunc,nage)= &
98 drygriduncn(ixp,jyp,ks,kp,nunc,nage)+deposit(ks)*w
101 if ((ixp.ge.0).and.(jy.ge.0).and.(ixp.le.numxgridn-1).and. &
102 (jy.le.numygridn-1))
then
104 drygriduncn(ixp,jy,ks,kp,nunc,nage)= &
105 drygriduncn(ixp,jy,ks,kp,nunc,nage)+deposit(ks)*w
108 if ((ix.ge.0).and.(jyp.ge.0).and.(ix.le.numxgridn-1).and. &
109 (jyp.le.numygridn-1))
then
111 drygriduncn(ix,jyp,ks,kp,nunc,nage)= &
112 drygriduncn(ix,jyp,ks,kp,nunc,nage)+deposit(ks)*w
subroutine drydepokernel_nest(nunc, deposit, x, y, nage, kp)