Changes between Version 7 and Version 8 of Ajeterici/TechnicalModifications


Ignore:
Timestamp:
2011-03-23T10:53:09+01:00 (13 years ago)
Author:
dsolyga
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • Ajeterici/TechnicalModifications

    v7 v8  
    1616 
    1717  
    18 The main changing are detailed below : 
     18The main changings are detailed below : 
    1919 
    2020 
    … …  
    4141 
    4242We delete '''stomate_constants.f90''' in order to move its parameters in ''src_parameters''. The too-specific parameters were moved to '''stomate_data.f90'''. [[BR]] 
     43Due to Fortran language, we have to delete the following structures in ORCHIDEE (previously in '''stomate_constants.f90''': 
     44 
     45{{{ 
     46! type declaration for photosynthesis 
     47  TYPE t_photo_type 
     48    REAL(r_std), DIMENSION(nvm)                  :: t_max_a 
     49    REAL(r_std), DIMENSION(nvm)                  :: t_max_b 
     50    REAL(r_std), DIMENSION(nvm)                  :: t_max_c 
     51    REAL(r_std), DIMENSION(nvm)                  :: t_opt_a 
     52    REAL(r_std), DIMENSION(nvm)                  :: t_opt_b 
     53    REAL(r_std), DIMENSION(nvm)                  :: t_opt_c 
     54    REAL(r_std), DIMENSION(nvm)                  :: t_min_a 
     55    REAL(r_std), DIMENSION(nvm)                  :: t_min_b 
     56    REAL(r_std), DIMENSION(nvm)                  :: t_min_c 
     57  END TYPE t_photo_type 
     58}}} 
     59and  : 
     60 
     61{{{ 
     62! type declaration for phenology 
     63  TYPE pheno_type 
     64    REAL(r_std), DIMENSION(nvm,3)                :: gdd 
     65    REAL(r_std), DIMENSION(nvm)                  :: ngd 
     66    REAL(r_std), DIMENSION(nvm)                  :: ncdgdd_temp 
     67    REAL(r_std), DIMENSION(nvm)                  :: hum_frac 
     68    REAL(r_std), DIMENSION(nvm)                  :: lowgpp_time 
     69    REAL(r_std), DIMENSION(nvm)                  :: leaffall 
     70    REAL(r_std), DIMENSION(nvm)                  :: leafagecrit 
     71    REAL(r_std)                       :: tau_hum_month 
     72    REAL(r_std)                       :: tau_hum_week 
     73    REAL(r_std)                       :: tau_t2m_month 
     74    REAL(r_std)                       :: tau_t2m_week 
     75    REAL(r_std)                       :: tau_tsoil_month 
     76    REAL(r_std)                       :: tau_soilhum_month 
     77    REAL(r_std)                       :: tau_gpp_week 
     78    REAL(r_std)                       :: tau_gdd 
     79    REAL(r_std)                       :: tau_ngd 
     80    REAL(r_std)                       :: tau_longterm 
     81    REAL(r_std), DIMENSION(nvm)                  :: lai_initmin 
     82    CHARACTER(len=6), DIMENSION(nvm)            :: pheno_model 
     83    CHARACTER(len=6), DIMENSION(nvm)            :: senescence_type 
     84    REAL(r_std), DIMENSION(nvm,3)                :: senescence_temp 
     85    REAL(r_std), DIMENSION(nvm)                  :: senescence_hum 
     86    REAL(r_std), DIMENSION(nvm)                  :: nosenescence_hum 
     87    REAL(r_std), DIMENSION(nvm)                  :: max_turnover_time 
     88    REAL(r_std), DIMENSION(nvm)                  :: min_leaf_age_for_senescence 
     89    REAL(r_std), DIMENSION(nvm)                  :: min_turnover_time 
     90!- 
     91    REAL(r_std), DIMENSION(nvm)                  :: hum_min_time 
     92  END TYPE pheno_type 
     93}}} 
     94 
     95We replace the structures by individuals arrays. 
     96 
    4397During our validations on fluxnet sites, we modified the herbivory model and the formulation for the variable  
    4498"black_carbon". In '''stomate_season.f90''', we replace :