| 239 | * définition de ext_coef dans slowproc_lai : incohérence manifeste avec l'utilisation de stomate dans la version LMD. [[BR]] |
| 240 | Lorsque active stomate avec la version LMD, on n'utilise slowproc_lai uniquement si on a pas de restart (dans slowproc_init). |
| 241 | Or on définit un extcoef (constant pour tous les PFTs) dans cette routine par un getin_p qui n'est pas a prioiri cohérent avec |
| 242 | le '''ext_coef(j par PFT)''' utilisé dans diffuco et slowproc_veget et définit dans constantes_co2 |
| 243 | {{{ |
| 244 | ! extinction coefficient of the Monsi&Seaki relationship (1953) |
| 245 | & ext_coef = (/.5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5/) |
| 246 | }}} |
| 247 | '''et''' le '''ext_coeff(j par PFT)''' utilisé dans lpj_establish et lpj_light [[BR]] |
| 248 | (définit dans stomate_constants, mais qui est initialisé avec le ext_coef de constantes_co2 dans stomate_data) |
| 249 | {{{ |
| 250 | ! extinction coefficient of the Monsi&Seaki (53) relationship |
| 251 | REAL(r_std), SAVE, DIMENSION(nvm) :: ext_coeff |
| 252 | }}} |
| 253 | Comme convenu, on ne définira plus le frac_bare dans la routine, mais on utilisera partout le ext_coef de constantes_co2 (paramétré par un getin dans slowproc_init) pour simplifié. |