28 use crtm_channelinfo_define,
only: crtm_channelinfo_type
31 type(crtm_channelinfo_type),
intent(inout) :: channelinfo
32 integer,
intent(in) :: nchannels,channels(nchannels)
34 integer :: temp(nchannels)
36 if(nchannels>channelinfo%n_channels)
then
37 write(6,*)
'ERROR*** tried to use more channels than sensor has'
38 write(6,*)
' ',nchannels,
' > ',channelinfo%n_channels
42 check:
do i=1,nchannels
43 if(channels(i)<1 .or. channels(i)>channelinfo%n_channels)
then
44 write(6,*)
'ERROR*** invalid channel id: ',channels(i)
45 write(6,*)
' in SELECT_CHANNELS at index ',i
48 temp(i)=channelinfo%Channel_Index(channels(i))
51 channelinfo%n_channels=nchannels
52 channelinfo%Channel_Index(1:nchannels)=temp
74 use crtm_channelinfo_define,
only: crtm_channelinfo_type
77 type(crtm_channelinfo_type),
intent(inout) :: channelinfo
78 integer,
intent(in) :: nchannels,channels(nchannels)
80 integer :: temp(nchannels)
81 integer :: L(nchannels)
84 if(nchannels>channelinfo%n_channels)
then
85 write(6,*)
'ERROR*** tried to use more channels than sensor has'
86 write(6,*)
' ',nchannels,
' > ',channelinfo%n_channels
92 if(channels(i)<1 .or. channels(i)>channelinfo%n_channels)
then
93 write(6,*)
'ERROR*** invalid channel id: ',channels(i)
94 write(6,*)
' in SELECT_CHANNELS at index ',i
99 temp(k)=channelinfo%Channel_Index(channels(i))
102 channelinfo%Process_Channel(channels(i))=.false.
subroutine select_channels_l(channelinfo, nchannels, channels, l, igot)
select_channels_L() verifies channel information.