Changeset 141


Ignore:
Timestamp:
2011-03-16T09:59:26+01:00 (14 years ago)
Author:
didier.solyga
Message:

Correct a wrong coefficient: replace init_sapl_mass_carbres in bm_sapl(j,iroot) by init_sapl_mass_root provoking a wrong allocation to roots

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_data.f90

    r107 r141  
    211211       ENDIF 
    212212 
    213        bm_sapl(j,iroot) = init_sapl_mass_carbres * (1./alpha) * bm_sapl(j,ileaf) 
     213       bm_sapl(j,iroot) = init_sapl_mass_root * (1./alpha) * bm_sapl(j,ileaf) 
    214214 
    215215       bm_sapl(j,ifruit) = init_sapl_mass_fruit  * bm_sapl(j,ileaf) 
Note: See TracChangeset for help on using the changeset viewer.