<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
#ifdef CRTM
<A NAME='DA_CRTM_TL'><A href='../../html_code/radiance/da_crtm_tl.inc.html#DA_CRTM_TL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_crtm_tl( nsensor, nchan, nprof, Atmosphere, & 1,4
Surface, &
Atmosphere_TL,&
Surface_TL, &
GeometryInfo, &
ChannelInfo, &
RTSolution, &
RTSolution_TL,&
Options)
integer, intent(in) :: nsensor, nchan, nprof
type (CRTM_RTSolution_type ), intent(inout) :: RTSolution(nchan,nprof),RTSolution_TL(nchan,nprof)
type (CRTM_ChannelInfo_type), intent(in) :: ChannelInfo(nsensor)
type( CRTM_Atmosphere_type ), intent(in) :: Atmosphere(nprof), Atmosphere_TL(nprof)
type( CRTM_Surface_type ), intent(in) :: Surface(nprof),Surface_TL(nprof)
type( CRTM_Geometry_type ), intent(inout) :: GeometryInfo(nprof)
type (CRTM_Options_type), intent(in) :: Options(nprof)
integer :: Error_Status
if (trace_use) call da_trace_entry
("da_crtm_tl")
Error_Status = CRTM_Tangent_Linear(Atmosphere, &
Surface, &
Atmosphere_TL,&
Surface_TL, &
GeometryInfo, &
ChannelInfo, &
RTSolution, &
RTSolution_TL,&
Options)
if ( Error_Status /= 0 ) then
call da_error(__FILE__,__LINE__, &
(/"Error in calling CRTM_Tangent_Linear"/))
end if
if (trace_use) call da_trace_exit("da_crtm_tl")
end subroutine da_crtm_tl
#endif