- Timestamp:
- 2011-07-29T14:04:49+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_turnover.f90
r257 r350 166 166 ! 167 167 168 leaf_meanage(:,:) = 0.0168 leaf_meanage(:,:) = zero 169 169 170 170 DO m = 1, nleafages … … 348 348 349 349 ! initialize leaf mass change in age class 350 delta_lm(:,:) = 0.0350 delta_lm(:,:) = zero 351 351 352 352 IF ( tree(j) ) THEN … … 451 451 DO m = 1, nleafages 452 452 453 WHERE ( biomass(:,j,ileaf) .GT. 0.0)453 WHERE ( biomass(:,j,ileaf) .GT. zero ) 454 454 leaf_frac(:,j,m) = ( leaf_frac(:,j,m)*lm_old(:) + delta_lm(:,m) ) / biomass(:,j,ileaf) 455 455 ELSEWHERE
Note: See TracChangeset
for help on using the changeset viewer.