var/da/da_radiance/da_crtm_direct.inc

   1 #ifdef CRTM
   2 subroutine da_crtm_direct(  nsensor, nchan, nprof, Atmosphere,   &
   3                             Surface,      &
   4                             GeometryInfo, &
   5                             ChannelInfo,  &
   6                             RTSolution,   &
   7                             Options)
   8
   9    integer, intent(in)            :: nsensor, nchan, nprof
  10    type (CRTM_RTSolution_type ),  intent(inout)  :: RTSolution(nchan,nprof)
  11    type (CRTM_ChannelInfo_type),  intent(in)  :: ChannelInfo(nsensor)
  12    type( CRTM_Atmosphere_type ),  intent(in)  :: Atmosphere(nprof)
  13    type( CRTM_Surface_type ),     intent(in)  :: Surface(nprof)
  14    type( CRTM_Geometry_type ), intent(inout)  :: GeometryInfo(nprof)
  15    type (CRTM_Options_type), optional, intent(in) :: Options(nprof)
  16
  17    integer :: Error_Status
  18
  19    if (trace_use) call da_trace_entry("da_crtm_direct")
  20
  21          Error_Status = CRTM_Forward (Atmosphere,   &
  22                             Surface,      &
  23                             GeometryInfo, &
  24                             ChannelInfo,  &
  25                             RTSolution,   &
  26                             Options)
  27
  28          if ( Error_Status /= 0 ) then
  29               call da_error(__FILE__,__LINE__, &
  30                  (/"Error in calling CRTM_Forward"/))
  31          end if
  32
  33   if (trace_use) call da_trace_exit("da_crtm_direct")
  34
  35 end subroutine da_crtm_direct
  36 #endif