OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
fiotb.f
Go to the documentation of this file.
1  subroutine fiotb
2 c
3 c save the stokes parameters of the diffused radiation leaving the
4 c top & bottom of the atmosphere after each iteration
5 c
6 c**********************************************************************
7 c
8  implicit real*8 (a-h,o-z)
9  include 'afrt_rt2.cmn'
10 c
11  read(iwrt,rec=1)ftmp
12  write(71,rec=jpass)ftmp
13  read(iwrt,rec=nolyr+1)ftmp
14  write(72,rec=jpass)ftmp
15 c
16  if(icrft.eq.1)then
17  read(iwrt,rec=lvlcrft)ftmp
18  write(73,rec=jpass)ftmp
19  read(iwrt,rec=lvlcrft+1)ftmp
20  write(74,rec=jpass)ftmp
21  endif
22  return
23  end
24 c**********************************************************************
subroutine fiotb
Definition: fiotb.f:2