52 integer :: level,indexh,m
60 y(m)=p1*vdepn(ix ,jy ,level,indexh,ngrid) &
61 +p2*vdepn(ixp,jy ,level,indexh,ngrid) &
62 +p3*vdepn(ix ,jyp,level,indexh,ngrid) &
63 +p4*vdepn(ixp,jyp,level,indexh,ngrid)
69 vdepo=(y(1)*dt2+y(2)*dt1)*dtt
71 depoindicator(level)=.false.
subroutine interpol_vdep_nests(level, vdepo)