actfgrc.f

Go to the documentation of this file.

      subroutine actfgrc
c
c     apply geometric correction to the actinic flux values
c     stored in buffers: acflvl1 and acflvl2
c
c**********************************************************************
c
      implicit real*8 (a-h,o-z)
      include 'afrt_rt2.cmn'
c
c**********************************************************************
c
      m1=jpass-2
      m2=jpass-1
      m3=jpass
c
      if(kzz.eq.1)then
         do i=1,(nolyr+1)
            call geom(acflvl1(m1,i),acflvl1(m2,i),acflvl1(m3,i),
     1                crr1,acfg1(ksza,i))
c           write(*,120)kzz,i,acflvl1(m1,i),acflvl1(m2,i),acflvl1(m3,i),
c    1                  crr1,acfg1(ksza,i)
120         format(2i3,1x,1p5e11.3)
c           turn off the geometric correction
c           acfg1(ksza,i)=acflvl1(m3,i)
         enddo
      endif
      if(kzz.eq.2)then
         do i=1,(nolyr+1)
            call geom(acflvl2(m1,i),acflvl2(m2,i),acflvl2(m3,i),
     1                crr2,acfg2(i))
c           turn off the geometric correction
c           acfg2(i)=acflvl2(m3,i)
         enddo
      endif
c
c     write(*,*)'geo corr. done'
c
      return
      end
c************************************************************************