409 | | |
410 | | {{{ |
411 | | !nitrogen |
412 | | circ_class_biomass(:,ivm,icirc,ileaf,initrogen) = circ_class_biomass(:,ivm,icirc,ileaf,initrogen) * & |
413 | | (un - leaf_frac(:,ivm,ilage) * turnover_rate(:)) |
414 | | circ_class_biomass(:,ivm,icirc,iroot,initrogen) = circ_class_biomass(:,ivm,icirc,iroot,initrogen) * & |
415 | | (un - leaf_frac(:,ivm,ilage) * turnover_rate(:)) |
416 | | circ_class_biomass(:,ivm,icirc,ifruit,initrogen) = circ_class_biomass(:,ivm,icirc,ifruit,initrogen) * & |
417 | | (un - leaf_frac(:,ivm,ilage) * turnover_rate(:)) |
418 | | |
419 | | ! add the recycled nutrients to labile pool: |
420 | | circ_class_biomass(:,ivm,icirc,ilabile,initrogen) = & |
421 | | circ_class_biomass(:,ivm,icirc,ilabile,initrogen) & |
422 | | + circ_class_biomass(:,ivm,icirc,ileaf,initrogen) * & ! add from leaves |
423 | | !DSGdebug_12 (un - leaf_frac(:,ivm,ilage) * turnover_rate(:) * recycle_leaf) & |
424 | | ( leaf_frac(:,ivm,ilage) * turnover_rate(:) * recycle_leaf) & |
425 | | + circ_class_biomass(:,ivm,icirc,iroot,initrogen) * & ! add from roots |
426 | | !DSGdebug_12 (un - leaf_frac(:,ivm,ilage) * turnover_rate(:) * recycle_root) |
427 | | ( leaf_frac(:,ivm,ilage) * turnover_rate(:) * recycle_root) |
428 | | }}} |