Skip to content

File canopy_phot_mod.F90

File List > src > canopy_phot_mod.F90

Go to the documentation of this file

module canopy_phot_mod

    implicit none

contains

    SUBROUTINE canopy_phot( FCLAI, LAI, CLU, COSZEN, RJCF )
        use canopy_const_mod, ONLY: rk     !> constants for canopy models

        REAL(rk),    INTENT( IN )  :: fclai(:)
        REAL(rk),    INTENT( IN )  :: lai
        REAL(rk),    INTENT( IN )  :: clu
        REAL(rk),    INTENT( IN )  :: coszen

        REAL(rk),    INTENT( OUT ) :: rjcf(:)

        rjcf = max(1.0e-10_rk, exp(-1.0_rk*(0.5_rk*(lai*(1.0_rk-fclai))*clu)/max(0.05_rk, coszen)))

    END SUBROUTINE canopy_phot


end module canopy_phot_mod