[8] | 1 | !$Header: /home/ssipsl/CVSREP/ORCHIDEE/src_parameters/constantes_co2.f90,v 1.10 2007/05/28 15:28:05 ssipsl Exp $ |
---|
| 2 | !IPSL (2006) |
---|
| 3 | ! This software is governed by the CeCILL licence see ORCHIDEE/ORCHIDEE_CeCILL.LIC |
---|
| 4 | !- |
---|
| 5 | MODULE constantes_co2 |
---|
| 6 | !!-------------------------------------------------------------------- |
---|
| 7 | !! "constantes_co2" module contains some public technical constants |
---|
| 8 | !!-------------------------------------------------------------------- |
---|
| 9 | USE constantes_veg |
---|
| 10 | !- |
---|
| 11 | IMPLICIT NONE |
---|
| 12 | !- |
---|
| 13 | ! indices for assimilation parameters |
---|
| 14 | !- |
---|
| 15 | INTEGER(i_std),PARAMETER :: itmin = 1 |
---|
| 16 | INTEGER(i_std),PARAMETER :: itopt = 2 |
---|
| 17 | INTEGER(i_std),PARAMETER :: itmax = 3 |
---|
| 18 | INTEGER(i_std),PARAMETER :: ivcmax = 4 |
---|
| 19 | INTEGER(i_std),PARAMETER :: ivjmax = 5 |
---|
| 20 | INTEGER(i_std),PARAMETER :: npco2 = 5 |
---|
| 21 | !- |
---|
| 22 | !! |
---|
| 23 | !! The following tables of parameters for SECHIBA |
---|
| 24 | !! are in the following order : |
---|
| 25 | !! |
---|
| 26 | !! 1 - Bare soil |
---|
| 27 | !! 2 - tropical broad-leaved evergreen |
---|
| 28 | !! 3 - tropical broad-leaved raingreen |
---|
| 29 | !! 4 - temperate needleleaf evergreen |
---|
| 30 | !! 5 - temperate broad-leaved evergreen |
---|
| 31 | !! 6 - temperate broad-leaved summergreen |
---|
| 32 | !! 7 - boreal needleleaf evergreen |
---|
| 33 | !! 8 - boreal broad-leaved summergreen |
---|
| 34 | !! 9 - boreal needleleaf summergreen |
---|
| 35 | !! 10 - C3 grass |
---|
| 36 | !! 11 - C4 grass |
---|
| 37 | !! 12 - C3 agriculture |
---|
| 38 | !! 13 - C4 agriculture |
---|
| 39 | !! |
---|
| 40 | ! flag for C4 vegetation types |
---|
| 41 | LOGICAL,DIMENSION(nvm),SAVE :: & |
---|
| 42 | & is_c4 = (/.false.,.false.,.false.,.false.,.false.,.false., & |
---|
| 43 | & .false.,.false.,.false.,.false.,.true.,.false.,.true. /) |
---|
| 44 | ! Slope of the gs/A relation (Ball & al.) |
---|
| 45 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 46 | & gsslope = (/0., 9., 9., 9., 9., 9., 9., 9., 9., 9., 3., 9., 3./) |
---|
| 47 | ! intercept of the gs/A relation (Ball & al.) |
---|
| 48 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 49 | & gsoffset = (/0.0, 0.01, 0.01, 0.01, 0.01, 0.01, & |
---|
| 50 | & 0.01, 0.01, 0.01, 0.01, 0.03, 0.01, 0.03/) |
---|
| 51 | ! values used for vcmax when STOMATE is not activated |
---|
| 52 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 53 | & vcmax_fix = (/ 0., 40., 50., 30., 35., 40., & |
---|
| 54 | & 30., 40., 35., 60., 60., 70., 70. /) |
---|
| 55 | ! values used for vjmax when STOMATE is not activated |
---|
| 56 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 57 | & vjmax_fix = (/ 0., 80., 100., 60., 70., 80., & |
---|
| 58 | & 60., 80., 70., 120., 120., 140., 140. /) |
---|
| 59 | ! values used for photosynthesis tmin when STOMATE is not activated |
---|
| 60 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 61 | & co2_tmin_fix = (/ 0., 2., 2., -4., -3., -2., & |
---|
| 62 | & -4., -4., -4., -5., 6., -5., 6. /) |
---|
| 63 | ! values used for photosynthesis topt when STOMATE is not activated |
---|
| 64 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 65 | & co2_topt_fix = (/ 0., 27.5, 27.5, 17.5, 25., 20., & |
---|
| 66 | & 17.5, 17.5, 17.5, 20., 32.5, 20., 32.5 /) |
---|
| 67 | ! values used for photosynthesis tmax when STOMATE is not activated |
---|
| 68 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 69 | & co2_tmax_fix = (/ 0., 55., 55., 38., 48., 38., & |
---|
| 70 | & 38., 38., 38., 45., 55., 45., 55. /) |
---|
| 71 | ! extinction coefficient of the Monsi&Seaki relationship (1953) |
---|
| 72 | REAL(r_std),DIMENSION(nvm),SAVE :: & |
---|
| 73 | & ext_coef = (/.5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5/) |
---|
| 74 | ! NV080800 Name of STOMATE forcing file |
---|
| 75 | CHARACTER(LEN=100) :: stomate_forcing_name='NONE' |
---|
| 76 | ! NV080800 Name of soil forcing file |
---|
| 77 | CHARACTER(LEN=100) :: stomate_Cforcing_name='NONE' |
---|
| 78 | !- |
---|
| 79 | INTEGER(i_std),SAVE :: forcing_id |
---|
| 80 | !------------------------ |
---|
| 81 | END MODULE constantes_co2 |
---|