CO2mod Function

public function CO2mod(co2, age) result(f)

compute CO22 modifier.

References:

Veroustraete, F., Sabbe, H. and Eerens, H. (2002) ‘Estimation of carbon mass fluxes over Europe using the C-Fix model and Euroflux data’, Remote Sensing of Environment, 83(3), pp. 376–399. doi: 10.1016/S0034-4257(02)00043-3.

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: co2

CO2 concentration (ppm)
real(kind=float), intent(in) :: age

plant age (year)

Return Value real(kind=float)


Variables

Type Visibility Attributes Name Initial
real(kind=float), public :: fCalphax

Source Code

FUNCTION  CO2mod &
!
(co2, age) &
!
RESULT (f)

IMPLICIT NONE

!arguments with intent(in):
REAL (KIND = float), INTENT(IN) :: co2 !!CO2 concentration (ppm)
REAL (KIND = float), INTENT(IN) :: age !! plant age (year)

!local declarations:
REAL (KIND = float) :: f
REAL (KIND = float) :: fCalphax
!---------------------------------------end of declarations--------------------

IF (age == 2.) THEN   
    fCalphax = 1.
ELSE
    fCalphax = age / (2. - age)
END IF

f = fCalphax * co2 / (350. * (fCalphax - 1.) + co2)

RETURN
END FUNCTION CO2mod