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