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