Changeset 359


Ignore:
Timestamp:
2011-07-29T17:02:01+02:00 (13 years ago)
Author:
didier.solyga
Message:

Add news labels for new externalized parameters

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/constantes.f90

    r354 r359  
    524524  ! 1. Scalar 
    525525 
    526   INTEGER(i_std), SAVE        :: nlai = 20 ! dimension de tableau 
     526  INTEGER(i_std), SAVE        :: nlai = 20  
    527527  ! used in diffuco_trans 
    528528  REAL(r_std), SAVE                :: laimax = 12. 
    … …  
    14191419     IF(first_call) THEN  
    14201420         
    1421         ! Global 
    1422         ! DS by global I mean the parameters used by two or more modules 
    1423         ! Example : the common parameters for both hydrology models 
     1421        ! Global : parameters used by many modules 
     1422        ! 
     1423        !Config Key  = MAXMASS_GLACIER 
     1424        !Config Desc =  
     1425        !Config If   = OK_SECHIBA or OK_CWRR 
     1426        !Config Def  =  3000. 
     1427        !Config Help =  
     1428        !Config  Units = [Kg/m^2]   
    14241429        CALL getin_p('MAXMASS_GLACIER',maxmass_glacier) 
     1430        ! 
     1431        !Config Key  = SNOWCRI 
     1432        !Config Desc =  
     1433        !Config If   = OK_SECHIBA or OK_CWRR 
     1434        !Config Def  = 1.5 
     1435        !Config Help =  
     1436        !Config  Units = [Kg/m^2]   
    14251437        CALL getin_p('SNOWCRI',snowcri) 
    14261438        ! 
    … …  
    14381450        CALL getin_p("HYDROL_SOIL_DEPTH", dpu_cste) 
    14391451        ! 
     1452        ! 
     1453        !Config Key  = MIN_WIND 
     1454        !Config Desc =  
     1455        !Config If   = OK_SECHIBA 
     1456        !Config Def  = 0.1 
     1457        !Config Help =  
     1458        !Config  Units = [m/s] ?    
    14401459        CALL getin_p('MIN_WIND',min_wind) 
     1460        ! 
     1461        !Config Key  = MAX_SNOW_AGE 
     1462        !Config Desc = Maximum period of snow aging  
     1463        !Config If   = OK_SECHIBA 
     1464        !Config Def  = 50. 
     1465        !Config Help =  
     1466        !Config  Units =    
    14411467        CALL getin_p('MAX_SNOW_AGE',max_snow_age) 
     1468        ! 
     1469        !Config Key  = SNOW_TRANS 
     1470        !Config Desc =  
     1471        !Config If   = OK_SECHIBA 
     1472        !Config Def  = 0.3 
     1473        !Config Help =  
     1474        !Config  Units = meters (m)    
    14421475        CALL getin_p('SNOW_TRANS',snow_trans) 
     1476        ! 
     1477        !Config Key  = MX_EAU_EAU 
     1478        !Config Desc =  
     1479        !Config If   = OK_SECHIBA  
     1480        !Config Def  = 150. 
     1481        !Config Help =  
     1482        !Config Units = (Kg/M3)   
    14431483        CALL getin_p('MX_EAU_EAU',mx_eau_eau) 
    14441484        !- 
    14451485        ! condveg 
     1486        !- 
     1487        ! 
     1488        !Config Key  = Z0_OVER_HEIGHT 
     1489        !Config Desc = to get z0 from height  
     1490        !Config If   = OK_SECHIBA  
     1491        !Config Def  =  1/16. 
     1492        !Config Help =  
     1493        !Config Units =    
    14461494        CALL getin_p('Z0_OVER_HEIGHT',z0_over_height) 
     1495        ! 
     1496        !Config Key  = HEIGHT_DISPLACEMENT 
     1497        !Config Desc = Magic number which relates the height to the displacement height. 
     1498        !Config If   = OK_SECHIBA  
     1499        !Config Def  = 0.75 
     1500        !Config Help =  
     1501        !Config Units =    
    14471502        CALL getin_p('HEIGHT_DISPLACEMENT',height_displacement) 
     1503        ! 
     1504        !Config Key  = Z0_BARE 
     1505        !Config Desc = bare soil roughness length 
     1506        !Config If   = OK_SECHIBA  
     1507        !Config Def  = 0.01  
     1508        !Config Help =  
     1509        !Config Units = Meters (m)    
    14481510        CALL getin_p('Z0_BARE',z0_bare) 
     1511        ! 
     1512        !Config Key  = Z0_ICE 
     1513        !Config Desc = ice roughness length 
     1514        !Config If   = OK_SECHIBA  
     1515        !Config Def  = 0.001 
     1516        !Config Help =  
     1517        !Config Units = Meters (m)    
    14491518        CALL getin_p('Z0_ICE',z0_ice) 
     1519        ! 
     1520        !Config Key  = TCST_SNOWA 
     1521        !Config Desc = Time constant of the albedo decay of snow 
     1522        !Config If   = OK_SECHIBA  
     1523        !Config Def  = 5.0  
     1524        !Config Help =  
     1525        !Config Units = days (d) ?   
    14501526        CALL getin_p('TCST_SNOWA',tcst_snowa) 
     1527        ! 
     1528        !Config Key  = SNOWCRI_ALB 
     1529        !Config Desc = Critical value for computation of snow albedo 
     1530        !Config If   = OK_SECHIBA 
     1531        !Config Def  = 10.  
     1532        !Config Help =  
     1533        !Config Units = [Kg/m^2]   
    14511534        CALL getin_p('SNOWCRI_ALB',snowcri_alb) 
    14521535        ! 
     1536        ! 
     1537        !Config Key  = VIS_DRY 
     1538        !Config Desc = The correspondance table for the soil color numbers and their albedo  
     1539        !Config If   = OK_SECHIBA  
     1540        !Config Def  = 0.24, 0.22, 0.20, 0.18, 0.16, 0.14, 0.12, 0.10, 0.27 
     1541        !Config Help =  
     1542        !Config Units =    
    14531543        CALL getin_p('VIS_DRY',vis_dry) 
     1544        ! 
     1545        !Config Key  = NIR_DRY 
     1546        !Config Desc = The correspondance table for the soil color numbers and their albedo  
     1547        !Config If   = OK_SECHIBA  
     1548        !Config Def  = 0.48, 0.44, 0.40, 0.36, 0.32, 0.28, 0.24, 0.20, 0.55 
     1549        !Config Help =  
     1550        !Config Units =    
    14541551        CALL getin_p('NIR_DRY',nir_dry) 
     1552        ! 
     1553        !Config Key  = VIS_WET  
     1554        !Config Desc = The correspondance table for the soil color numbers and their albedo 
     1555        !Config If   = 0.12, 0.11, 0.10, 0.09, 0.08, 0.07, 0.06, 0.05, 0.15 
     1556        !Config Def  =  
     1557        !Config Help =  
     1558        !Config Units =    
    14551559        CALL getin_p('VIS_WET',vis_wet) 
     1560        ! 
     1561        !Config Key  = NIR_WET 
     1562        !Config Desc = The correspondance table for the soil color numbers and their albedo  
     1563        !Config If   = OK_SECHIBA  
     1564        !Config Def  = 0.24, 0.22, 0.20, 0.18, 0.16, 0.14, 0.12, 0.10, 0.31 
     1565        !Config Help =  
     1566        !Config Units =    
    14561567        CALL getin_p('NIR_WET',nir_wet) 
     1568        ! 
     1569        !Config Key  = ALBSOIL_VIS 
     1570        !Config Desc =  
     1571        !Config If   = OK_SECHIBA  
     1572        !Config Def  = 0.18, 0.16, 0.16, 0.15, 0.12, 0.105, 0.09, 0.075, 0.25 
     1573        !Config Help =  
     1574        !Config Units = NONE   
    14571575        CALL getin_p('ALBSOIL_VIS',albsoil_vis) 
     1576        ! 
     1577        !Config Key  = ALBSOIL_NIR  
     1578        !Config Desc =  
     1579        !Config If   = OK_SECHIBA  
     1580        !Config Def  = 0.36, 0.34, 0.34, 0.33, 0.30, 0.25, 0.20, 0.15, 0.45 
     1581        !Config Help =  
     1582        !Config Units = NONE   
    14581583        CALL getin_p('ALBSOIL_NIR',albsoil_nir) 
    14591584        !- 
     1585        ! 
     1586        !Config Key  = ALB_DEADLEAF  
     1587        !Config Desc = albedo of dead leaves, VIS+NIR  
     1588        !Config If   = OK_SECHIBA  
     1589        !Config Def  = 0.12, 0.35 
     1590        !Config Help =  
     1591        !Config Units =    
    14601592        CALL getin_p('ALB_DEADLEAF',alb_deadleaf) 
     1593        ! 
     1594        !Config Key  = ALB_ICE 
     1595        !Config Desc = albedo of ice, VIS+NIR 
     1596        !Config If   =  OK_SECHIBA 
     1597        !Config Def  = 0.60, 0.20 
     1598        !Config Help =  
     1599        !Config Units =    
    14611600        CALL getin_p('ALB_ICE',alb_ice) 
    14621601        ! 
    … …  
    15521691        !- 
    15531692        ! diffuco  
    1554         ! DS the rest of diffuco parameters are only read when ok_co2 is set to TRUE 
     1693        !- 
     1694        ! 
     1695        !Config Key  = NLAI 
     1696        !Config Desc =  
     1697        !Config If   = OK_SECHIBA 
     1698        !Config Def  = 20 
     1699        !Config Help = dimension of an array used in diffuco 
     1700        !Config  Units = NONE   
    15551701        CALL getin_p('NLAI',nlai) 
     1702        ! 
     1703        !Config Key  = LAIMAX 
     1704        !Config Desc =  
     1705        !Config If   = OK_SECHIBA 
     1706        !Config Def  =  
     1707        !Config Help =  
     1708        !Config  Units =    
    15561709        CALL getin_p('LAIMAX',laimax) 
     1710        ! 
     1711        !Config Key  = XC4_1  
     1712        !Config Desc =  
     1713        !Config If   = OK_SECHIBA  
     1714        !Config Def  = 0.83 
     1715        !Config Help =  
     1716        !Config  Units =    
    15571717        CALL getin_p('XC4_1',xc4_1) 
     1718        ! 
     1719        !Config Key  = XC4_2 
     1720        !Config Desc =  
     1721        !Config If   = OK_SECHIBA  
     1722        !Config Def  = 0.93 
     1723        !Config Help =  
     1724        !Config  Units =    
    15581725        CALL getin_p('XC4_2',xc4_2) 
     1726        ! 
     1727        !Config Key  = DEW_VEG_POLY_COEFF 
     1728        !Config Desc = coefficients of the polynome of degree 5 
     1729        !Config If   = OK_SECHIBA 
     1730        !Config Def  = 0.887773, 0.205673, 0.110112, 0.014843,  0.000824,  0.000017  
     1731        !Config Help =  
     1732        !Config  Units =    
    15591733        CALL getin_p('DEW_VEG_POLY_COEFF',dew_veg_poly_coeff) 
    15601734        !- 
    15611735        ! slowproc 
     1736        !- 
     1737        ! 
     1738        !Config Key  = CLAYFRACTION_DEFAULT 
     1739        !Config Desc =  
     1740        !Config If   = OK_SECHIBA  
     1741        !Config Def  = 0.2  
     1742        !Config Help =  
     1743        !Config  Units = NONE    
    15621744        CALL getin_p('CLAYFRACTION_DEFAULT',clayfraction_default) 
     1745        ! 
     1746        !Config Key  = MIN_VEGFRAC  
     1747        !Config Desc = Minimal fraction of mesh a vegetation type can occupy  
     1748        !Config If   = OK_SECHIBA  
     1749        !Config Def  = 0.001  
     1750        !Config Help =  
     1751        !Config Units = NONE   
    15631752        CALL getin_p('MIN_VEGFRAC',min_vegfrac) 
     1753        ! 
     1754        !Config Key  = SOILTYPE_DEFAULT 
     1755        !Config Desc = Default soil texture distribution in the following order : sand, loam and clay 
     1756        !Config If   = OK_SECHIBA  
     1757        !Config Def  = 0.0, 1.0, 0.0 
     1758        !Config Help =  
     1759        !Config Units = NONE    
    15641760        CALL getin_p('SOILTYPE_DEFAULT',soiltype_default) 
    15651761        ! 
    … …  
    15831779     IF(first_call) THEN 
    15841780         
     1781        ! 
     1782        !Config Key  = LAI_LEVEL_DEPTH 
     1783        !Config Desc =  
     1784        !Config If   = OK_CO2 
     1785        !Config Def  = 0.15 
     1786        !Config Help =  
     1787        !Config  Units =    
    15851788        CALL getin_p('LAI_LEVEL_DEPTH',lai_level_depth) 
     1789        ! 
     1790        !Config Key  = X1_COEF 
     1791        !Config Desc =  
     1792        !Config If   = OK_CO2 
     1793        !Config Def  = 0.177 
     1794        !Config Help =  
     1795        !Config  Units =    
    15861796        CALL getin_p('X1_COEF',x1_coef) 
     1797        ! 
     1798        !Config Key  = X1_Q10 
     1799        !Config Desc =  
     1800        !Config If   = OK_CO2 
     1801        !Config Def  = 0.069 
     1802        !Config Help =  
     1803        !Config  Units =    
    15871804        CALL getin_p('X1_Q10',x1_Q10) 
     1805        ! 
     1806        !Config Key  = QUANTUM_YIELD 
     1807        !Config Desc =  
     1808        !Config If   = OK_CO2 
     1809        !Config Def  = 0.092  
     1810        !Config Help =  
     1811        !Config  Units =    
    15881812        CALL getin_p('QUANTUM_YIELD',quantum_yield) 
     1813        ! 
     1814        !Config Key  = KT_COEF 
     1815        !Config Desc =  
     1816        !Config If   = OK_CO2 
     1817        !Config Def  = 0.7  
     1818        !Config Help =  
     1819        !Config  Units =    
    15891820        CALL getin_p('KT_COEF',kt_coef) 
     1821        ! 
     1822        !Config Key  = KC_COEF 
     1823        !Config Desc =  
     1824        !Config If   = OK_CO2 
     1825        !Config Def  = 39.09  
     1826        !Config Help =  
     1827        !Config  Units =    
    15901828        CALL getin_p('KC_COEF',kc_coef) 
     1829        ! 
     1830        !Config Key  = KO_Q10  
     1831        !Config Desc =  
     1832        !Config If   = OK_CO2  
     1833        !Config Def  = 0.085  
     1834        !Config Help =  
     1835        !Config  Units =    
    15911836        CALL getin_p('KO_Q10',Ko_Q10) 
     1837        ! 
     1838        !Config Key  = OA 
     1839        !Config Desc =  
     1840        !Config If   = OK_CO2 
     1841        !Config Def  = 210000.  
     1842        !Config Help =  
     1843        !Config  Units =    
    15921844        CALL getin_p('OA',Oa) 
     1845        ! 
     1846        !Config Key  = KO_COEF 
     1847        !Config Desc =  
     1848        !Config If   = OK_CO2 
     1849        !Config Def  = 2.412  
     1850        !Config Help =  
     1851        !Config  Units =    
    15931852        CALL getin_p('KO_COEF',Ko_coef) 
     1853        ! 
     1854        !Config Key  = CP_0 
     1855        !Config Desc =  
     1856        !Config If   = OK_CO2 
     1857        !Config Def  = 42.  
     1858        !Config Help =  
     1859        !Config  Units =    
    15941860        CALL getin_p('CP_0',CP_0) 
     1861        ! 
     1862        !Config Key  = CP_TEMP_COEF 
     1863        !Config Desc =  
     1864        !Config If   = OK_CO2 
     1865        !Config Def  = 9.46 
     1866        !Config Help =  
     1867        !Config  Units =    
    15951868        CALL getin_p('CP_TEMP_COEF',cp_temp_coef) 
     1869        ! 
     1870        !Config Key  = CP_TEMP_REF 
     1871        !Config Desc =  
     1872        !Config If   = OK_CO2 
     1873        !Config Def  =  25. 
     1874        !Config Help =  
     1875        !Config  Units = degrees Celsius ?   
    15961876        CALL getin_p('CP_TEMP_REF',cp_temp_ref) 
     1877        ! 
     1878        !Config Key  = RT_COEF 
     1879        !Config Desc =  
     1880        !Config If   = OK_CO2 
     1881        !Config Def  =  0.8, 1.3 
     1882        !Config Help =  
     1883        !Config  Units =    
    15971884        CALL getin_p('RT_COEF',rt_coef) 
     1885        ! 
     1886        !Config Key  = VC_COEF 
     1887        !Config Desc =  
     1888        !Config If   = OK_CO2 
     1889        !Config Def  = 0.39, 0.3  
     1890        !Config Help =  
     1891        !Config  Units =    
    15981892        CALL getin_p('VC_COEF',vc_coef) 
    15991893         
    … …  
    16111905      
    16121906     IF(first_call) THEN  
    1613          
     1907        ! 
     1908        !Config Key  = QWILT 
     1909        !Config Desc = Wilting point 
     1910        !Config If   = OK_SECHIBA and .NOT.(OK_CWRR) 
     1911        !Config Def  =  5.0 
     1912        !Config Help =  
     1913        !Config Units = 
    16141914        CALL getin_p('QWILT',qwilt) 
     1915        ! 
     1916        !Config Key  = MIN_RESDIS 
     1917        !Config Desc = The minimal size we allow for the upper reservoir 
     1918        !Config If   = OK_SECHIBA and .NOT.(OK_CWRR) 
     1919        !Config Def  = 2.e-5 
     1920        !Config Help =  
     1921        !Config Units = Meters (m) 
    16151922        CALL getin_p('MIN_RESDIS',min_resdis) 
     1923        ! 
     1924        !Config Key  = MIN_DRAIN 
     1925        !Config Desc = Diffusion constant for the slow regime 
     1926        !Config If   = OK_SECHIBA and .NOT.(OK_CWRR) 
     1927        !Config Def  = 0.001 
     1928        !Config Help =  
     1929        !Config  Units = 
    16161930        CALL getin_p('MIN_DRAIN',min_drain) 
     1931        ! 
     1932        !Config Key  = MAX_DRAIN 
     1933        !Config Desc = Diffusion constant for the fast regime 
     1934        !Config If   = OK_SECHIBA and .NOT.(OK_CWRR) 
     1935        !Config Def  = 0.1 
     1936        !Config Help =  
     1937        !Config  Units = 
    16171938        CALL getin_p('MAX_DRAIN',max_drain) 
     1939        ! 
     1940        !Config Key  = EXP_DRAIN 
     1941        !Config Desc = The exponential in the diffusion law 
     1942        !Config If   = OK_SECHIBA and .NOT.(OK_CWRR) 
     1943        !Config Def  = 1.5 
     1944        !Config Help =  
     1945        !Config Units = 
    16181946        CALL getin_p('EXP_DRAIN',exp_drain) 
     1947        ! 
     1948        !Config Key  = RSOL_CSTE 
     1949        !Config Desc = Constant in the computation of resistance for bare  soil evaporation  
     1950        !Config If   = OK_SECHIBA and .NOT.(OK_CWRR) 
     1951        !Config Def  = 33.E3 
     1952        !Config Help =  
     1953        !Config Units = 
    16191954        CALL getin_p('RSOL_CSTE',rsol_cste) 
     1955        ! 
     1956        !Config Key  = HCRIT_LITTER 
     1957        !Config Desc = Scaling depth for litter humidity (m) 
     1958        !Config If   = OK_SECHIBA and .NOT.(OK_CWRR)  
     1959        !Config Def  = 0.08  
     1960        !Config Help =  
     1961        !Config Units = 
    16201962        CALL getin_p('HCRIT_LITTER',hcrit_litter) 
    16211963        ! 
    … …  
    16451987      
    16461988     IF (first_call) THEN 
    1647          
     1989 
     1990        ! 
     1991        !Config Key  = W_TIME  
     1992        !Config Desc = Time weighting for discretisation 
     1993        !Config If   = OK_CWRR 
     1994        !Config Def  = 1. 
     1995        !Config Help =  
     1996        !Config Units = 
    16481997        CALL getin_p('W_TIME',w_time) 
    1649         CALL getin_p('NVAN',nvan)    
     1998        ! 
     1999        !Config Key  = NVAN 
     2000        !Config Desc = Van genuchten coefficient n 
     2001        !Config If   = OK_CWRR 
     2002        !Config Def  = 1.89, 1.56, 1.31 
     2003        !Config Help =  
     2004        !Config Units = 
     2005        CALL getin_p('NVAN',nvan) 
     2006        ! 
     2007        !Config Key  = AVAN 
     2008        !Config Desc = Van genuchten coefficient a (mm^{-1}) 
     2009        !Config If   = OK_CWRR 
     2010        !Config Def  = 0.0075, 0.0036, 0.0019 
     2011        !Config Help =  
     2012        !Config Units = [1/mm]   
    16502013        CALL getin_p('AVAN',avan) 
     2014        ! 
     2015        !Config Key  = MCR  
     2016        !Config Desc = Residual soil water content 
     2017        !Config If   = OK_CWRR 
     2018        !Config Def  = 0.065, 0.078, 0.095 
     2019        !Config Help =  
     2020        !Config Units =    
    16512021        CALL getin_p('MCR',mcr) 
    1652         CALL getin_p('MCS',mcs) 
     2022        ! 
     2023        !Config Key  = MCS 
     2024        !Config Desc = Saturated soil water content 
     2025        !Config If   = OK_CWRR 
     2026        !Config Def  = 0.41, 0.43, 0.41 
     2027        !Config Help =  
     2028        !Config Units =    
     2029        CALL getin_p('MCS',mcs)      
     2030        ! 
     2031        !Config Key  = KS  
     2032        !Config Desc = Hydraulic conductivity Saturation 
     2033        !Config If   = OK_CWRR  
     2034        !Config Def  = 1060.8, 249.6, 62.4 
     2035        !Config Help =  
     2036        !Config Units = [mm/d]    
    16532037        CALL getin_p('KS',ks) 
     2038        ! 
     2039        !Config Key  = PCENT 
     2040        !Config Desc = Soil moisture above which transpir is max 
     2041        !Config If   = OK_CWRR 
     2042        !Config Def  =  0.5, 0.5, 0.5 
     2043        !Config Help =  
     2044        !Config Units =    
    16542045        CALL getin_p('PCENT',pcent) 
     2046        ! 
     2047        !Config Key  = FREE_DRAIN_MAX  
     2048        !Config Desc = Max value of the permeability coeff at the bottom of the soil  
     2049        !Config If   = OK_CWRR 
     2050        !Config Def  =  1.0, 1.0, 1.0  
     2051        !Config Help =  
     2052        !Config Units =    
    16552053        CALL getin_p('FREE_DRAIN_MAX',free_drain_max) 
     2054        ! 
     2055        !Config Key  = MCF  
     2056        !Config Desc = Volumetric water content field capacity 
     2057        !Config If   = OK_CWRR 
     2058        !Config Def  = 0.32, 0.32, 0.32 
     2059        !Config Help =  
     2060        !Config Units =    
    16562061        CALL getin_p('MCF',mcf) 
     2062        ! 
     2063        !Config Key  = MCW 
     2064        !Config Desc = Volumetric water content Wilting pt 
     2065        !Config If   = OK_CWRR 
     2066        !Config Def  = 0.10, 0.10, 0.10  
     2067        !Config Help =  
     2068        !Config Units =    
    16572069        CALL getin_p('MCW',mcw) 
     2070        ! 
     2071        !Config Key  = MC_AWET 
     2072        !Config Desc = Vol. wat. cont. above which albedo is cst 
     2073        !Config If   = OK_CWRR 
     2074        !Config Def  = 0.25, 0.25, 0.25 
     2075        !Config Help =  
     2076        !Config Units =    
    16582077        CALL getin_p('MC_AWET',mc_awet) 
     2078        ! 
     2079        !Config Key  = MC_ADRY 
     2080        !Config Desc = Vol. wat. cont. below which albedo is cst 
     2081        !Config If   = OK_CWRR 
     2082        !Config Def  = 0.1, 0.1, 0.1 
     2083        !Config Help =  
     2084        !Config Units =    
     2085        CALL getin_p('MC_ADRY',mc_adry) 
    16592086          
    16602087        first_call =.FALSE. 
    … …  
    16732100      
    16742101     IF(first_call) THEN 
    1675          
     2102        ! 
     2103        !Config Key  = CROP_COEF  
     2104        !Config Desc = Parameter for the Kassel irrigation parametrization linked to the crops 
     2105        !Config If   = OK_ROUTING 
     2106        !Config Def  = 1.5 
     2107        !Config Help =  
     2108        !Config  Units =    
    16762109        CALL getin_p('CROP_COEF',crop_coef) 
    16772110         
    … …  
    16912124     
    16922125    IF(first_call) THEN 
    1693         
     2126       !- 
    16942127       ! constraints_parameters 
     2128       !- 
     2129       ! 
     2130       !Config Key  =  
     2131       !Config Desc =  
     2132       !Config If   =  
     2133       !Config Def  =  
     2134       !Config Help =  
     2135       !Config  Units =    
    16952136       CALL getin_p('TOO_LONG',too_long) 
     2137 
    16962138       !- 
    16972139       ! fire parameters 
     2140       !- 
     2141       ! 
     2142       !Config Key  =  
     2143       !Config Desc =  
     2144       !Config If   =  
     2145       !Config Def  =  
     2146       !Config Help =  
     2147       !Config  Units =    
    16982148       CALL getin_p('TAU_FIRE',tau_fire) 
     2149       ! 
     2150       !Config Key  =  
     2151       !Config Desc =  
     2152       !Config If   =  
     2153       !Config Def  =  
     2154       !Config Help =  
     2155       !Config  Units =    
    16992156       CALL getin_p('LITTER_CRIT',litter_crit) 
     2157       ! 
     2158       !Config Key  =  
     2159       !Config Desc =  
     2160       !Config If   =  
     2161       !Config Def  =  
     2162       !Config Help =  
     2163       !Config  Units =    
    17002164       CALL getin_p('CO2FRAC',co2frac) 
     2165       ! 
     2166       !Config Key  =  
     2167       !Config Desc =  
     2168       !Config If   =  
     2169       !Config Def  =  
     2170       !Config Help =  
     2171       !Config  Units =    
    17012172       CALL getin_p('BCFRAC_COEFF',bcfrac_coeff) 
     2173       ! 
     2174       !Config Key  =  
     2175       !Config Desc =  
     2176       !Config If   =  
     2177       !Config Def  =  
     2178       !Config Help =  
     2179       !Config  Units =    
    17022180       CALL getin_p('FIREFRAC_COEFF',firefrac_coeff) 
     2181 
    17032182       !- 
    17042183       ! gap parameters (+ lpj_const_mort) 
     2184       !- 
     2185       ! 
     2186       !Config Key  =  
     2187       !Config Desc =  
     2188       !Config If   =  
     2189       !Config Def  =  
     2190       !Config Help =  
     2191       !Config  Units =    
    17052192       CALL getin_p('AVAILABILITY_FACT', availability_fact)   
     2193       ! 
     2194       !Config Key  =  
     2195       !Config Desc =  
     2196       !Config If   =  
     2197       !Config Def  =  
     2198       !Config Help =  
     2199       !Config  Units =    
    17062200       CALL getin_p('VIGOUR_REF',vigour_ref) 
     2201       ! 
     2202       !Config Key  =  
     2203       !Config Desc =  
     2204       !Config If   =  
     2205       !Config Def  =  
     2206       !Config Help =  
     2207       !Config  Units =    
    17072208       CALL getin_p('VIGOUR_COEFF',vigour_coeff)  
     2209 
    17082210       !- 
    17092211       ! allocation parameters 
     2212       !- 
     2213       ! 
     2214       !Config Key  =  
     2215       !Config Desc =  
     2216       !Config If   =  
     2217       !Config Def  =  
     2218       !Config Help =  
     2219       !Config  Units =    
    17102220       CALL getin_p('OK_MINRES',ok_minres) 
     2221       ! 
     2222       !Config Key  =  
     2223       !Config Desc =  
     2224       !Config If   =  
     2225       !Config Def  =  
     2226       !Config Help =  
     2227       !Config  Units =    
    17112228       CALL getin_p('TAU_LEAFINIT', tau_leafinit) 
     2229       ! 
     2230       !Config Key  =  
     2231       !Config Desc =  
     2232       !Config If   =  
     2233       !Config Def  =  
     2234       !Config Help =  
     2235       !Config  Units =    
    17122236       CALL getin_p('RESERVE_TIME_TREE',reserve_time_tree) 
     2237       ! 
     2238       !Config Key  =  
     2239       !Config Desc =  
     2240       !Config If   =  
     2241       !Config Def  =  
     2242       !Config Help =  
     2243       !Config  Units =    
    17132244       CALL getin_p('RESERVE_TIME_GRASS',reserve_time_grass) 
     2245       ! 
     2246       !Config Key  =  
     2247       !Config Desc =  
     2248       !Config If   =  
     2249       !Config Def  =  
     2250       !Config Help =  
     2251       !Config  Units =    
    17142252       CALL getin_p('R0',R0) 
     2253       ! 
     2254       !Config Key  =  
     2255       !Config Desc =  
     2256       !Config If   =  
     2257       !Config Def  =  
     2258       !Config Help =  
     2259       !Config  Units =    
    17152260       CALL getin_p('S0',S0) 
     2261       ! 
     2262       !Config Key  =  
     2263       !Config Desc =  
     2264       !Config If   =  
     2265       !Config Def  =  
     2266       !Config Help =  
     2267       !Config  Units =    
    17162268       CALL getin_p('F_FRUIT',f_fruit) 
     2269       ! 
     2270       !Config Key  =  
     2271       !Config Desc =  
     2272       !Config If   =  
     2273       !Config Def  =  
     2274       !Config Help =  
     2275       !Config  Units =    
    17172276       CALL getin_p('ALLOC_SAP_ABOVE_TREE',alloc_sap_above_tree) 
     2277       ! 
     2278       !Config Key  =  
     2279       !Config Desc =  
     2280       !Config If   =  
     2281       !Config Def  =  
     2282       !Config Help =  
     2283       !Config  Units =    
    17182284       CALL getin_p('ALLOC_SAP_ABOVE_GRASS',alloc_sap_above_grass) 
     2285       ! 
     2286       !Config Key  =  
     2287       !Config Desc =  
     2288       !Config If   =  
     2289       !Config Def  =  
     2290       !Config Help =  
     2291       !Config  Units =    
    17192292       CALL getin_p('MIN_LTOLSR',min_LtoLSR) 
     2293       ! 
     2294       !Config Key  =  
     2295       !Config Desc =  
     2296       !Config If   =  
     2297       !Config Def  =  
     2298       !Config Help =  
     2299       !Config  Units =    
    17202300       CALL getin_p('MAX_LTOLSR',max_LtoLSR) 
     2301       ! 
     2302       !Config Key  =  
     2303       !Config Desc =  
     2304       !Config If   =  
     2305       !Config Def  =  
     2306       !Config Help =  
     2307       !Config  Units =    
    17212308       CALL getin_p('Z_NITROGEN',z_nitrogen) 
     2309       ! 
     2310       !Config Key  =  
     2311       !Config Desc =  
     2312       !Config If   =  
     2313       !Config Def  =  
     2314       !Config Help =  
     2315       !Config  Units =    
    17222316       CALL getin_p('LAI_MAX_TO_HAPPY',lai_max_to_happy) 
    1723        CALL getin_p('NLIM_TREF',Nlim_tref)    
     2317       ! 
     2318       !Config Key  =  
     2319       !Config Desc =  
     2320       !Config If   =  
     2321       !Config Def  =  
     2322       !Config Help =  
     2323       !Config  Units =    
     2324       CALL getin_p('NLIM_TREF',Nlim_tref)  
     2325   
    17242326       !- 
    17252327       ! data parameters 
     2328       !- 
     2329       ! 
     2330       !Config Key  =  
     2331       !Config Desc =  
     2332       !Config If   =  
     2333       !Config Def  =  
     2334       !Config Help =  
     2335       !Config  Units =    
    17262336       CALL getin_p('PIPE_TUNE1',pipe_tune1) 
    1727        CALL getin_p('PIPE_TUNE2',pipe_tune2)    
     2337       ! 
     2338       !Config Key  =  
     2339       !Config Desc =  
     2340       !Config If   =  
     2341       !Config Def  =  
     2342       !Config Help =  
     2343       !Config  Units =    
     2344       CALL getin_p('PIPE_TUNE2',pipe_tune2)  
     2345        ! 
     2346       !Config Key  =  
     2347       !Config Desc =  
     2348       !Config If   =  
     2349       !Config Def  =  
     2350       !Config Help =  
     2351       !Config  Units =     
    17282352       CALL getin_p('PIPE_TUNE3',pipe_tune3) 
     2353       ! 
     2354       !Config Key  =  
     2355       !Config Desc =  
     2356       !Config If   =  
     2357       !Config Def  =  
     2358       !Config Help =  
     2359       !Config  Units =    
    17292360       CALL getin_p('PIPE_TUNE4',pipe_tune4) 
     2361       ! 
     2362       !Config Key  =  
     2363       !Config Desc =  
     2364       !Config If   =  
     2365       !Config Def  =  
     2366       !Config Help =  
     2367       !Config  Units =    
    17302368       CALL getin_p('PIPE_DENSITY',pipe_density) 
     2369       ! 
     2370       !Config Key  =  
     2371       !Config Desc =  
     2372       !Config If   =  
     2373       !Config Def  =  
     2374       !Config Help =  
     2375       !Config  Units =    
    17312376       CALL getin_p('PIPE_K1',pipe_k1) 
     2377       ! 
     2378       !Config Key  =  
     2379       !Config Desc =  
     2380       !Config If   =  
     2381       !Config Def  =  
     2382       !Config Help =  
     2383       !Config  Units =    
    17322384       CALL getin_p('PIPE_TUNE_EXP_COEFF',pipe_tune_exp_coeff) 
    17332385       ! 
     2386       ! 
     2387       !Config Key  =  
     2388       !Config Desc =  
     2389       !Config If   =  
     2390       !Config Def  =  
     2391       !Config Help =  
     2392       !Config  Units =    
    17342393       CALL getin_p('PRECIP_CRIT',precip_crit) 
    1735        CALL getin_p('GDD_CRIT_ESTAB',gdd_crit_estab)  
     2394       ! 
     2395       !Config Key  =  
     2396       !Config Desc =  
     2397       !Config If   =  
     2398       !Config Def  =  
     2399       !Config Help =  
     2400       !Config  Units =    
     2401       CALL getin_p('GDD_CRIT_ESTAB',gdd_crit_estab) 
     2402        ! 
     2403       !Config Key  =  
     2404       !Config Desc =  
     2405       !Config If   =  
     2406       !Config Def  =  
     2407       !Config Help =  
     2408       !Config  Units =    
    17362409       CALL getin_p('FPC_CRIT',fpc_crit) 
     2410       ! 
     2411       !Config Key  =  
     2412       !Config Desc =  
     2413       !Config If   =  
     2414       !Config Def  =  
     2415       !Config Help =  
     2416       !Config  Units =    
    17372417       CALL getin_p('ALPHA_GRASS',alpha_grass) 
     2418       ! 
     2419       !Config Key  =  
     2420       !Config Desc =  
     2421       !Config If   =  
     2422       !Config Def  =  
     2423       !Config Help =  
     2424       !Config  Units =    
    17382425       CALL getin_p('ALPHA_TREE',alpha_tree) 
    17392426       !- 
     2427       ! 
     2428       !Config Key  =  
     2429       !Config Desc =  
     2430       !Config If   =  
     2431       !Config Def  =  
     2432       !Config Help =  
     2433       !Config  Units =    
    17402434       CALL getin_p('MASS_RATIO_HEART_SAP',mass_ratio_heart_sap) 
     2435       ! 
     2436       !Config Key  =  
     2437       !Config Desc =  
     2438       !Config If   =  
     2439       !Config Def  =  
     2440       !Config Help =  
     2441       !Config  Units =    
    17412442       CALL getin_p('FRAC_GROWTHRESP',frac_growthresp) 
     2443       ! 
     2444       !Config Key  =  
     2445       !Config Desc =  
     2446       !Config If   =  
     2447       !Config Def  =  
     2448       !Config Help =  
     2449       !Config  Units =    
    17422450       CALL getin_p('TAU_HUM_MONTH',tau_hum_month) 
     2451       ! 
     2452       !Config Key  =  
     2453       !Config Desc =  
     2454       !Config If   =  
     2455       !Config Def  =  
     2456       !Config Help =  
     2457       !Config  Units =    
    17432458       CALL getin_p('TAU_HUM_WEEK',tau_hum_week) 
     2459       ! 
     2460       !Config Key  =  
     2461       !Config Desc =  
     2462       !Config If   =  
     2463       !Config Def  =  
     2464       !Config Help =  
     2465       !Config  Units =    
    17442466       CALL getin_p('TAU_T2M_MONTH',tau_t2m_month) 
     2467       ! 
     2468       !Config Key  =  
     2469       !Config Desc =  
     2470       !Config If   =  
     2471       !Config Def  =  
     2472       !Config Help =  
     2473       !Config  Units =    
    17452474       CALL getin_p('TAU_T2M_WEEK',tau_t2m_week) 
     2475       ! 
     2476       !Config Key  =  
     2477       !Config Desc =  
     2478       !Config If   =  
     2479       !Config Def  =  
     2480       !Config Help =  
     2481       !Config  Units =    
    17462482       CALL getin_p('TAU_TSOIL_MONTH',tau_tsoil_month) 
     2483       ! 
     2484       !Config Key  =  
     2485       !Config Desc =  
     2486       !Config If   =  
     2487       !Config Def  =  
     2488       !Config Help =  
     2489       !Config  Units =    
    17472490       CALL getin_p('TAU_SOILHUM_MONTH',tau_soilhum_month) 
     2491       ! 
     2492       !Config Key  =  
     2493       !Config Desc =  
     2494       !Config If   =  
     2495       !Config Def  =  
     2496       !Config Help =  
     2497       !Config  Units =    
    17482498       CALL getin_p('TAU_GPP_WEEK',tau_gpp_week) 
     2499       ! 
     2500       !Config Key  =  
     2501       !Config Desc =  
     2502       !Config If   =  
     2503       !Config Def  =  
     2504       !Config Help =  
     2505       !Config  Units =    
    17492506       CALL getin_p('TAU_GDD',tau_gdd) 
     2507       ! 
     2508       !Config Key  =  
     2509       !Config Desc =  
     2510       !Config If   =  
     2511       !Config Def  =  
     2512       !Config Help =  
     2513       !Config  Units =    
    17502514       CALL getin_p('TAU_NGD',tau_ngd) 
     2515       ! 
     2516       !Config Key  =  
     2517       !Config Desc =  
     2518       !Config If   =  
     2519       !Config Def  =  
     2520       !Config Help =  
     2521       !Config  Units =    
    17512522       CALL getin_p('COEFF_TAU_LONGTERM',coeff_tau_longterm) 
    17522523       !- 
     2524       ! 
     2525       !Config Key  =  
     2526       !Config Desc =  
     2527       !Config If   =  
     2528       !Config Def  =  
     2529       !Config Help =  
     2530       !Config  Units =    
    17532531       CALL getin_p('BM_SAPL_CARBRES',bm_sapl_carbres) 
     2532       ! 
     2533       !Config Key  =  
     2534       !Config Desc =  
     2535       !Config If   =  
     2536       !Config Def  =  
     2537       !Config Help =  
     2538       !Config  Units =    
    17542539       CALL getin_p('BM_SAPL_SAPABOVE',bm_sapl_sapabove) 
     2540       ! 
     2541       !Config Key  =  
     2542       !Config Desc =  
     2543       !Config If   =  
     2544       !Config Def  =  
     2545       !Config Help =  
     2546       !Config  Units =    
    17552547       CALL getin_p('BM_SAPL_HEARTABOVE',bm_sapl_heartabove) 
     2548       ! 
     2549       !Config Key  =  
     2550       !Config Desc =  
     2551       !Config If   =  
     2552       !Config Def  =  
     2553       !Config Help =  
     2554       !Config  Units =    
    17562555       CALL getin_p('BM_SAPL_HEARTBELOW',bm_sapl_heartbelow) 
     2556       ! 
     2557       !Config Key  =  
     2558       !Config Desc =  
     2559       !Config If   =  
     2560       !Config Def  =  
     2561       !Config Help =  
     2562       !Config  Units =    
    17572563       CALL getin_p('INIT_SAPL_MASS_LEAF_NAT',init_sapl_mass_leaf_nat) 
     2564       ! 
     2565       !Config Key  =  
     2566       !Config Desc =  
     2567       !Config If   =  
     2568       !Config Def  =  
     2569       !Config Help =  
     2570       !Config  Units =    
    17582571       CALL getin_p('INIT_SAPL_MASS_LEAF_AGRI',init_sapl_mass_leaf_agri) 
     2572       ! 
     2573       !Config Key  =  
     2574       !Config Desc =  
     2575       !Config If   =  
     2576       !Config Def  =  
     2577       !Config Help =  
     2578       !Config  Units =    
    17592579       CALL getin_p('INIT_SAPL_MASS_CARBRES',init_sapl_mass_carbres) 
     2580       ! 
     2581       !Config Key  =  
     2582       !Config Desc =  
     2583       !Config If   =  
     2584       !Config Def  =  
     2585       !Config Help =  
     2586       !Config  Units =    
    17602587       CALL getin_p('INIT_SAPL_MASS_ROOT',init_sapl_mass_root) 
     2588       ! 
     2589       !Config Key  =  
     2590       !Config Desc =  
     2591       !Config If   =  
     2592       !Config Def  =  
     2593       !Config Help =  
     2594       !Config  Units =    
    17612595       CALL getin_p('INIT_SAPL_MASS_FRUIT',init_sapl_mass_fruit) 
     2596       ! 
     2597       !Config Key  =  
     2598       !Config Desc =  
     2599       !Config If   =  
     2600       !Config Def  =  
     2601       !Config Help =  
     2602       !Config  Units =    
    17622603       CALL getin_p('CN_SAPL_INIT',cn_sapl_init) 
     2604       ! 
     2605       !Config Key  =  
     2606       !Config Desc =  
     2607       !Config If   =  
     2608       !Config Def  =  
     2609       !Config Help =  
     2610       !Config  Units =    
    17632611       CALL getin_p('MIGRATE_TREE',migrate_tree) 
     2612       ! 
     2613       !Config Key  =  
     2614       !Config Desc =  
     2615       !Config If   =  
     2616       !Config Def  =  
     2617       !Config Help =  
     2618       !Config  Units =    
    17642619       CALL getin_p('MIGRATE_GRASS',migrate_grass) 
     2620       ! 
     2621       !Config Key  =  
     2622       !Config Desc =  
     2623       !Config If   =  
     2624       !Config Def  =  
     2625       !Config Help =  
     2626       !Config  Units =    
    17652627       CALL getin_p('MAXDIA_COEFF',maxdia_coeff) 
     2628       ! 
     2629       !Config Key  =  
     2630       !Config Desc =  
     2631       !Config If   =  
     2632       !Config Def  =  
     2633       !Config Help =  
     2634       !Config  Units =    
    17662635       CALL getin_p('LAI_INITMIN_TREE',lai_initmin_tree) 
     2636       ! 
     2637       !Config Key  =  
     2638       !Config Desc =  
     2639       !Config If   =  
     2640       !Config Def  =  
     2641       !Config Help =  
     2642       !Config  Units =    
    17672643       CALL getin_p('LAI_INITMIN_GRASS',lai_initmin_grass) 
     2644       ! 
     2645       !Config Key  =  
     2646       !Config Desc =  
     2647       !Config If   =  
     2648       !Config Def  =  
     2649       !Config Help =  
     2650       !Config  Units =    
    17682651       CALL getin_p('DIA_COEFF',dia_coeff) 
     2652       ! 
     2653       !Config Key  =  
     2654       !Config Desc =  
     2655       !Config If   =  
     2656       !Config Def  =  
     2657       !Config Help =  
     2658       !Config  Units =    
    17692659       CALL getin_p('MAXDIA_COEFF',maxdia_coeff) 
     2660       ! 
     2661       !Config Key  =  
     2662       !Config Desc =  
     2663       !Config If   =  
     2664       !Config Def  =  
     2665       !Config Help =  
     2666       !Config  Units =    
    17702667       CALL getin_p('BM_SAPL_LEAF',bm_sapl_leaf) 
     2668 
    17712669       !- 
    17722670       ! litter parameters 
     2671       !- 
     2672       ! 
     2673       !Config Key  =  
     2674       !Config Desc =  
     2675       !Config If   =  
     2676       !Config Def  =  
     2677       !Config Help =  
     2678       !Config  Units =    
    17732679       CALL getin_p('METABOLIC_REF_FRAC',metabolic_ref_frac) 
     2680       ! 
     2681       !Config Key  =  
     2682       !Config Desc =  
     2683       !Config If   =  
     2684       !Config Def  =  
     2685       !Config Help =  
     2686       !Config  Units =    
    17742687       CALL getin_p('Z_DECOMP',z_decomp) 
     2688       ! 
     2689       !Config Key  =  
     2690       !Config Desc =  
     2691       !Config If   =  
     2692       !Config Def  =  
     2693       !Config Help =  
     2694       !Config  Units =    
    17752695       CALL getin_p('CN',CN) 
     2696       ! 
     2697       !Config Key  =  
     2698       !Config Desc =  
     2699       !Config If   =  
     2700       !Config Def  =  
     2701       !Config Help =  
     2702       !Config  Units =    
    17762703       CALL getin_p('LC',LC) 
     2704       ! 
     2705       !Config Key  =  
     2706       !Config Desc =  
     2707       !Config If   =  
     2708       !Config Def  =  
     2709       !Config Help =  
     2710       !Config  Units =    
    17772711       CALL getin_p('FRAC_SOIL_STRUCT_AA',frac_soil_struct_aa) 
     2712       ! 
     2713       !Config Key  =  
     2714       !Config Desc =  
     2715       !Config If   =  
     2716       !Config Def  =  
     2717       !Config Help =  
     2718       !Config  Units =    
    17782719       CALL getin_p('FRAC_SOIL_STRUCT_AB',frac_soil_struct_ab) 
     2720       ! 
     2721       !Config Key  =  
     2722       !Config Desc =  
     2723       !Config If   =  
     2724       !Config Def  =  
     2725       !Config Help =  
     2726       !Config  Units =    
    17792727       CALL getin_p('FRAC_SOIL_STRUCT_SA',frac_soil_struct_sa) 
     2728       ! 
     2729       !Config Key  =  
     2730       !Config Desc =  
     2731       !Config If   =  
     2732       !Config Def  =  
     2733       !Config Help =  
     2734       !Config  Units =    
    17802735       CALL getin_p('FRAC_SOIL_STRUCT_SB',frac_soil_struct_sb) 
     2736       ! 
     2737       !Config Key  =  
     2738       !Config Desc =  
     2739       !Config If   =  
     2740       !Config Def  =  
     2741       !Config Help =  
     2742       !Config  Units =    
    17812743       CALL getin_p('FRAC_SOIL_METAB_AA',frac_soil_metab_aa) 
     2744       ! 
     2745       !Config Key  =  
     2746       !Config Desc =  
     2747       !Config If   =  
     2748       !Config Def  =  
     2749       !Config Help =  
     2750       !Config  Units =    
    17822751       CALL getin_p('FRAC_SOIL_METAB_AB',frac_soil_metab_ab) 
    17832752       ! 
    1784        CALL getin_p('METABOLIC_LN_RATIO',metabolic_LN_ratio)    
     2753       ! 
     2754       !Config Key  =  
     2755       !Config Desc =  
     2756       !Config If   =  
     2757       !Config Def  =  
     2758       !Config Help =  
     2759       !Config  Units =    
     2760       CALL getin_p('METABOLIC_LN_RATIO',metabolic_LN_ratio)  
     2761       ! 
     2762       !Config Key  =  
     2763       !Config Desc =  
     2764       !Config If   =  
     2765       !Config Def  =  
     2766       !Config Help =  
     2767       !Config  Units =      
    17852768       CALL getin_p('TAU_METABOLIC',tau_metabolic) 
     2769       ! 
     2770       !Config Key  =  
     2771       !Config Desc =  
     2772       !Config If   =  
     2773       !Config Def  =  
     2774       !Config Help =  
     2775       !Config  Units =    
    17862776       CALL getin_p('TAU_STRUCT',tau_struct) 
     2777       ! 
     2778       !Config Key  =  
     2779       !Config Desc =  
     2780       !Config If   =  
     2781       !Config Def  =  
     2782       !Config Help =  
     2783       !Config  Units =    
    17872784       CALL getin_p('SOIL_Q10',soil_Q10) 
     2785       ! 
     2786       !Config Key  =  
     2787       !Config Desc =  
     2788       !Config If   =  
     2789       !Config Def  =  
     2790       !Config Help =  
     2791       !Config  Units =    
    17882792       CALL getin_p('TSOIL_REF',tsoil_ref) 
     2793       ! 
     2794       !Config Key  =  
     2795       !Config Desc =  
     2796       !Config If   =  
     2797       !Config Def  =  
     2798       !Config Help =  
     2799       !Config  Units =    
    17892800       CALL getin_p('LITTER_STRUCT_COEF',litter_struct_coef) 
     2801       ! 
     2802       !Config Key  =  
     2803       !Config Desc =  
     2804       !Config If   =  
     2805       !Config Def  =  
     2806       !Config Help =  
     2807       !Config  Units =    
    17902808       CALL getin_p('MOIST_COEFF',moist_coeff) 
     2809 
    17912810       !- 
    17922811       ! lpj parameters 
     2812       !- 
     2813       ! 
     2814       !Config Key  =  
     2815       !Config Desc =  
     2816       !Config If   =  
     2817       !Config Def  =  
     2818       !Config Help =  
     2819       !Config  Units =    
    17932820       CALL getin_p('FRAC_TURNOVER_DAILY',frac_turnover_daily)    
     2821 
    17942822       !- 
    17952823       ! npp parameters 
     2824       !- 
     2825       ! 
     2826       !Config Key  =  
     2827       !Config Desc =  
     2828       !Config If   =  
     2829       !Config Def  =  
     2830       !Config Help =  
     2831       !Config  Units =    
    17962832       CALL getin_p('TAX_MAX',tax_max)  
     2833 
    17972834       !- 
    17982835       ! phenology parameters 
     2836       !- 
     2837       ! 
     2838       !Config Key  =  
     2839       !Config Desc =  
     2840       !Config If   =  
     2841       !Config Def  =  
     2842       !Config Help =  
     2843       !Config  Units =    
    17992844       CALL getin_p('ALWAYS_INIT',always_init) 
     2845       ! 
     2846       !Config Key  =  
     2847       !Config Desc =  
     2848       !Config If   =  
     2849       !Config Def  =  
     2850       !Config Help =  
     2851       !Config  Units =    
    18002852       CALL getin_p('MIN_GROWTHINIT_TIME',min_growthinit_time) 
     2853       ! 
     2854       !Config Key  =  
     2855       !Config Desc =  
     2856       !Config If   =  
     2857       !Config Def  =  
     2858       !Config Help =  
     2859       !Config  Units =    
    18012860       CALL getin_p('MOIAVAIL_ALWAYS_TREE',moiavail_always_tree) 
     2861       ! 
     2862       !Config Key  =  
     2863       !Config Desc =  
     2864       !Config If   =  
     2865       !Config Def  =  
     2866       !Config Help =  
     2867       !Config  Units =    
    18022868       CALL getin_p('MOIAVAIL_ALWAYS_GRASS',moiavail_always_grass) 
     2869       ! 
     2870       !Config Key  =  
     2871       !Config Desc =  
     2872       !Config If   =  
     2873       !Config Def  =  
     2874       !Config Help =  
     2875       !Config  Units =    
    18032876       CALL getin_p('T_ALWAYS_ADD',t_always_add) 
    18042877       ! 
     2878       ! 
     2879       !Config Key  =  
     2880       !Config Desc =  
     2881       !Config If   =  
     2882       !Config Def  =  
     2883       !Config Help =  
     2884       !Config  Units =    
    18052885       CALL getin_p('GDDNCD_REF',gddncd_ref) 
     2886       ! 
     2887       !Config Key  =  
     2888       !Config Desc =  
     2889       !Config If   =  
     2890       !Config Def  =  
     2891       !Config Help =  
     2892       !Config  Units =    
    18062893       CALL getin_p('GDDNCD_CURVE',gddncd_curve) 
     2894       ! 
     2895       !Config Key  =  
     2896       !Config Desc =  
     2897       !Config If   =  
     2898       !Config Def  =  
     2899       !Config Help =  
     2900       !Config  Units =    
    18072901       CALL getin_p('GDDNCD_OFFSET',gddncd_offset) 
    18082902       !- 
    18092903       ! prescribe parameters 
     2904       !- 
     2905       ! 
     2906       !Config Key  =  
     2907       !Config Desc =  
     2908       !Config If   =  
     2909       !Config Def  =  
     2910       !Config Help =  
     2911       !Config  Units =   
    18102912       CALL getin_p('CN_TREE',cn_tree) 
     2913       ! 
     2914       !Config Key  =  
     2915       !Config Desc =  
     2916       !Config If   =  
     2917       !Config Def  =  
     2918       !Config Help =  
     2919       !Config  Units =   
    18112920       CALL getin_p('BM_SAPL_RESCALE',bm_sapl_rescale) 
     2921 
    18122922       !- 
    18132923       ! respiration parameters 
     2924       !- 
     2925       ! 
     2926       !Config Key  =  
     2927       !Config Desc =  
     2928       !Config If   =  
     2929       !Config Def  =  
     2930       !Config Help =  
     2931       !Config  Units =   
    18142932       CALL getin_p('MAINT_RESP_MIN_VMAX',maint_resp_min_vmax)   
     2933       ! 
     2934       !Config Key  =  
     2935       !Config Desc =  
     2936       !Config If   =  
     2937       !Config Def  =  
     2938       !Config Help =  
     2939       !Config  Units =   
    18152940       CALL getin_p('MAINT_RESP_COEFF',maint_resp_coeff) 
    1816        !- 
    1817        ! soilcarbon parameters   
     2941 
     2942       !- 
     2943       ! soilcarbon parameters  
    18182944       !- 
    18192945       ! 
    … …  
    19193045       !Config  Def  = 1.2, 1.4,.75 
    19203046       !Config  Help = 
    1921        !Config  Units =  
     3047       !Config  Units = days (d)  
    19223048       CALL getin_p('FLUX_TOT_COEFF',flux_tot_coeff) 
     3049 
    19233050       !- 
    19243051       ! turnover parameters 
    19253052       !- 
     3053       ! 
     3054       !Config Key  =  
     3055       !Config Desc =  
     3056       !Config If   =  
     3057       !Config Def  =  
     3058       !Config Help =  
     3059       !Config  Units =   
    19263060       CALL getin_p('NEW_TURNOVER_TIME_REF',new_turnover_time_ref) 
     3061       ! 
     3062       !Config Key  =  
     3063       !Config Desc =  
     3064       !Config If   =  
     3065       !Config Def  =  
     3066       !Config Help =  
     3067       !Config  Units =   
    19273068       CALL getin_p('DT_TURNOVER_TIME',dt_turnover_time) 
     3069       ! 
     3070       !Config Key  =  
     3071       !Config Desc =  
     3072       !Config If   =  
     3073       !Config Def  =  
     3074       !Config Help =  
     3075       !Config  Units =   
    19283076       CALL getin_p('LEAF_AGE_CRIT_TREF',leaf_age_crit_tref) 
     3077       ! 
     3078       !Config Key  =  
     3079       !Config Desc =  
     3080       !Config If   =  
     3081       !Config Def  =  
     3082       !Config Help =  
     3083       !Config  Units =   
    19293084       CALL getin_p('LEAF_AGE_CRIT_COEFF',leaf_age_crit_coeff) 
     3085 
    19303086       !- 
    19313087       ! vmax parameters 
     3088       !- 
     3089       ! 
     3090       !Config Key  =  
     3091       !Config Desc =  
     3092       !Config If   =  
     3093       !Config Def  =  
     3094       !Config Help =  
     3095       !Config  Units =   
    19323096       CALL getin_p('VMAX_OFFSET',vmax_offset) 
     3097       ! 
     3098       !Config Key  =  
     3099       !Config Desc =  
     3100       !Config If   =  
     3101       !Config Def  =  
     3102       !Config Help =  
     3103       !Config  Units =   
    19333104       CALL getin_p('LEAFAGE_FIRSTMAX',leafage_firstmax) 
     3105       ! 
     3106       !Config Key  =  
     3107       !Config Desc =  
     3108       !Config If   =  
     3109       !Config Def  =  
     3110       !Config Help =  
     3111       !Config  Units =   
    19343112       CALL getin_p('LEAFAGE_LASTMAX',leafage_lastmax) 
     3113       ! 
     3114       !Config Key  =  
     3115       !Config Desc =  
     3116       !Config If   =  
     3117       !Config Def  =  
     3118       !Config Help =  
     3119       !Config  Units =   
    19353120       CALL getin_p('LEAFAGE_OLD',leafage_old) 
     3121 
    19363122       !- 
    19373123       ! season parameters 
     3124       !- 
     3125       ! 
     3126       !Config Key  =  
     3127       !Config Desc =  
     3128       !Config If   =  
     3129       !Config Def  =  
     3130       !Config Help =  
     3131       !Config  Units =   
    19383132       CALL getin_p('GPPFRAC_DORMANCE',gppfrac_dormance) 
     3133       ! 
     3134       !Config Key  =  
     3135       !Config Desc =  
     3136       !Config If   =  
     3137       !Config Def  =  
     3138       !Config Help =  
     3139       !Config  Units =   
    19393140       CALL getin_p('MIN_GPP_ALLOWED',min_gpp_allowed) 
     3141       ! 
     3142       !Config Key  =  
     3143       !Config Desc =  
     3144       !Config If   =  
     3145       !Config Def  =  
     3146       !Config Help =  
     3147       !Config  Units =   
    19403148       CALL getin_p('TAU_CLIMATOLOGY',tau_climatology) 
     3149       ! 
     3150       !Config Key  =  
     3151       !Config Desc =  
     3152       !Config If   =  
     3153       !Config Def  =  
     3154       !Config Help =  
     3155       !Config  Units =   
    19413156       CALL getin_p('HVC1',hvc1) 
     3157       ! 
     3158       !Config Key  =  
     3159       !Config Desc =  
     3160       !Config If   =  
     3161       !Config Def  =  
     3162       !Config Help =  
     3163       !Config  Units =   
    19423164       CALL getin_p('HVC2',hvc2) 
     3165       ! 
     3166       !Config Key  =  
     3167       !Config Desc =  
     3168       !Config If   =  
     3169       !Config Def  =  
     3170       !Config Help =  
     3171       !Config  Units =   
    19433172       CALL getin_p('LEAF_FRAC_HVC',leaf_frac_hvc) 
    19443173       ! 
     3174       ! 
     3175       !Config Key  =  
     3176       !Config Desc =  
     3177       !Config If   =  
     3178       !Config Def  =  
     3179       !Config Help =  
     3180       !Config  Units =   
    19453181       CALL getin_p('TLONG_REF_MAX',tlong_ref_max) 
     3182       ! 
     3183       !Config Key  =  
     3184       !Config Desc =  
     3185       !Config If   =  
     3186       !Config Def  =  
     3187       !Config Help =  
     3188       !Config  Units =   
    19463189       CALL getin_p('TLONG_REF_MIN',tlong_ref_min) 
    19473190       ! 
     3191       !Config Key  =  
     3192       !Config Desc =  
     3193       !Config If   =  
     3194       !Config Def  =  
     3195       !Config Help =  
     3196       !Config  Units =   
    19483197       CALL getin_p('NCD_MAX_YEAR',ncd_max_year) 
     3198       ! 
     3199       !Config Key  =  
     3200       !Config Desc =  
     3201       !Config If   =  
     3202       !Config Def  =  
     3203       !Config Help =  
     3204       !Config  Units =   
    19493205       CALL getin_p('GDD_THRESHOLD',gdd_threshold) 
     3206       ! 
     3207       !Config Key  =  
     3208       !Config Desc =  
     3209       !Config If   =  
     3210       !Config Def  =  
     3211       !Config Help =  
     3212       !Config  Units =   
    19503213       CALL getin_p('GREEN_AGE_EVER',green_age_ever) 
     3214       ! 
     3215       !Config Key  =  
     3216       !Config Desc =  
     3217       !Config If   =  
     3218       !Config Def  =  
     3219       !Config Help =  
     3220       !Config  Units =   
    19513221       CALL getin_p('GREEN_AGE_DEC',green_age_dec) 
    19523222        
    … …  
    19663236     
    19673237    IF(first_call) THEN 
    1968         
     3238   
     3239       !- 
    19693240       ! establish parameters 
     3241       !- 
     3242       ! 
     3243       !Config Key  =  
     3244       !Config Desc =  
     3245       !Config If   =  
     3246       !Config Def  =  
     3247       !Config Help =  
     3248       !Config  Units =   
    19703249       CALL getin_p('ESTAB_MAX_TREE',estab_max_tree) 
     3250       ! 
     3251       !Config Key  =  
     3252       !Config Desc =  
     3253       !Config If   =  
     3254       !Config Def  =  
     3255       !Config Help =  
     3256       !Config  Units =   
    19713257       CALL getin_p('ESTAB_MAX_GRASS',estab_max_grass) 
     3258       ! 
     3259       !Config Key  =  
     3260       !Config Desc =  
     3261       !Config If   =  
     3262       !Config Def  =  
     3263       !Config Help =  
     3264       !Config  Units =   
    19723265       CALL getin_p('ESTABLISH_SCAL_FACT',establish_scal_fact) 
     3266       ! 
     3267       !Config Key  =  
     3268       !Config Desc =  
     3269       !Config If   =  
     3270       !Config Def  =  
     3271       !Config Help =  
     3272       !Config  Units =   
    19733273       CALL getin_p('FPC_CRIT_MAX',fpc_crit_max) 
     3274       ! 
     3275       !Config Key  =  
     3276       !Config Desc =  
     3277       !Config If   =  
     3278       !Config Def  =  
     3279       !Config Help =  
     3280       !Config  Units =   
    19743281       CALL getin_p('FPC_CRIT_MIN',fpc_crit_min) 
     3282 
    19753283       !- 
    19763284       ! light parameters 
     3285       !- 
     3286       ! 
     3287       !Config Key  =  
     3288       !Config Desc =  
     3289       !Config If   =  
     3290       !Config Def  =  
     3291       !Config Help =  
     3292       !Config  Units =   
    19773293       CALL getin_p('GRASS_MERCY',grass_mercy) 
     3294       ! 
     3295       !Config Key  =  
     3296       !Config Desc =  
     3297       !Config If   =  
     3298       !Config Def  =  
     3299       !Config Help =  
     3300       !Config  Units =   
    19783301       CALL getin_p('TREE_MERCY',tree_mercy) 
     3302       ! 
     3303       !Config Key  =  
     3304       !Config Desc =  
     3305       !Config If   =  
     3306       !Config Def  =  
     3307       !Config Help =  
     3308       !Config  Units =   
    19793309       CALL getin_p('ANNUAL_INCREASE',annual_increase) 
     3310       ! 
     3311       !Config Key  =  
     3312       !Config Desc =  
     3313       !Config If   =  
     3314       !Config Def  =  
     3315       !Config Help =  
     3316       !Config  Units =   
    19803317       CALL getin_p('MIN_COVER',min_cover) 
     3318 
    19813319       !- 
    19823320       ! pftinout parameters 
     3321       !- 
     3322       ! 
     3323       !Config Key  =  
     3324       !Config Desc =  
     3325       !Config If   =  
     3326       !Config Def  =  
     3327       !Config Help =  
     3328       !Config  Units =   
    19833329       CALL getin_p('IND_0',ind_0) 
     3330       ! 
     3331       !Config Key  =  
     3332       !Config Desc =  
     3333       !Config If   =  
     3334       !Config Def  =  
     3335       !Config Help =  
     3336       !Config  Units =   
    19843337       CALL getin_p('MIN_AVAIL',min_avail) 
     3338       ! 
     3339       !Config Key  =  
     3340       !Config Desc =  
     3341       !Config If   =  
     3342       !Config Def  =  
     3343       !Config Help =  
     3344       !Config  Units =   
    19853345       CALL getin_p('RIP_TIME_MIN',RIP_time_min) 
     3346       ! 
     3347       !Config Key  =  
     3348       !Config Desc =  
     3349       !Config If   =  
     3350       !Config Def  =  
     3351       !Config Help =  
     3352       !Config  Units =   
    19863353       CALL getin_p('NPP_LONGTERM_INIT',npp_longterm_init) 
     3354       ! 
     3355       !Config Key  =  
     3356       !Config Desc =  
     3357       !Config If   =  
     3358       !Config Def  =  
     3359       !Config Help =  
     3360       !Config  Units =   
    19873361       CALL getin_p('EVERYWHERE_INIT',everywhere_init) 
    19883362        
Note: See TracChangeset for help on using the changeset viewer.