actflx.f

Go to the documentation of this file.

      subroutine actflx
c
c     read the stokes parameters at for each level and compte
c     actinic flux
c
c**********************************************************************
c
      implicit real*8 (a-h,o-z)
      include 'afrt_rt2.cmn'
c
      do i=1,(nolyr+1)
         read(iwrt,rec=i)ftmp
         call acflxlvl(ftmp,sumg)
         if(kzz.eq.1)then
            acflvl1(jpass,i)=sumg
         else
            acflvl2(jpass,i)=sumg
         endif
      enddo 
c
      return
      end
c**********************************************************************