INTERFACE
subroutine onedvar_obsop_tl (ksat, kproma, k1d_x, k1d_y, k1d_z,&
 & p1d_x5, p1d_x_xt5, p1d_y5,&
 & p1d_x , p1d_x_xt , p1d_y) 
use parkind1, only: jpim, jprb
use yomdim , only: nflevg
integer (kind=jpim), intent (in) :: ksat, kproma, k1d_x, k1d_y, k1d_z
real (kind=jprb), intent (in), dimension (kproma,k1d_x) :: p1d_x5 , p1d_x
real (kind=jprb), intent (inout), dimension (kproma,k1d_z) :: p1d_x_xt5, p1d_x_xt
real (kind=jprb), intent (out), dimension (kproma,k1d_y) :: p1d_y5 , p1d_y
end subroutine onedvar_obsop_tl
END INTERFACE
