905 CALL init(dbaana_init%vol7d_ana, lon=lon, lat=lat, ilon=ilon, ilat=ilat, ident=ident)
906end if
907
908end function dbaana_init
909
911subroutine dbaana_set(ana,session)
912class(dbaana), intent(in) :: ana
913type(dbasession), intent(in) :: session