interface subroutine HWMupdate(input,last,fs,fl,fm,vbar,wbar,ebz,ebm,zwght,lev,u,v) use NewModel real(8),intent(in) :: input(5) ! jday,utsec,glon,glat,alt real(8),intent(inout) :: last(5) real(8),intent(inout) :: fs(0:maxs,2) real(8),intent(inout) :: fm(0:maxm,2) real(8),intent(inout) :: fl(0:maxl,2) real(8),intent(inout) :: vbar(0:maxn,0:maxo) real(8),intent(inout) :: wbar(0:maxn,0:maxo) real(8),intent(inout),target :: ebz(nbf,0:p) real(8),intent(inout),target :: ebm(nbf,0:p) real(8),intent(inout) :: zwght(0:p) integer,intent(inout) :: lev real(8),intent(out) :: u,v end subroutine end interface |