fiotb.f

Go to the documentation of this file.

      subroutine fiotb
c
c     save the stokes parameters of the diffused radiation leaving the
c     top & bottom of the atmosphere after each iteration
c
c**********************************************************************
c
      implicit real*8 (a-h,o-z)
      include 'afrt_rt2.cmn'
c
      read(iwrt,rec=1)ftmp
      write(71,rec=jpass)ftmp
      read(iwrt,rec=nolyr+1)ftmp
      write(72,rec=jpass)ftmp
c
      if(icrft.eq.1)then
         read(iwrt,rec=lvlcrft)ftmp
         write(73,rec=jpass)ftmp
         read(iwrt,rec=lvlcrft+1)ftmp
         write(74,rec=jpass)ftmp
      endif
      return
      end
c**********************************************************************