Changes between Version 15 and Version 16 of Branches/MergeOCN/Goll

Timestamp:

2015-05-21T16:22:32+02:00 (10 years ago)

Author:

dgoll

Comment:

--

Branches/MergeOCN/Goll

@@ -143 +143 @@
 }}}
 
-
+== '''3. Stoichiometry issue: stomate_turnover.f90''' ==
+There must be Nitrogen losses from abovesap wood when there are Carbon losses to ensure CN ratio:
+
+
+{{{
+             dturnover(:) = biomass(:,ivm,iroot,initrogen) * leaf_frac(:,ivm,ilage) * turnover_rate(:)
+             biomass(:,ivm,ilabile,initrogen) = biomass(:,ivm,ilabile,initrogen) + recycle_root(ivm) * dturnover(:)
+             biomass(:,ivm,iroot,  initrogen) = biomass(:,ivm,iroot,  initrogen) - dturnover(:)
+             turnover(:,ivm,iroot, initrogen) = turnover(:,ivm,iroot,initrogen)  + ( un - recycle_root(ivm) ) * dturnover(:)
+
+             dturnover(:) = biomass(:,ivm,ifruit,initrogen) * leaf_frac(:,ivm,ilage) * turnover_rate(:)
+             biomass(:,ivm,ifruit, initrogen) = biomass(:,ivm,ifruit,initrogen)  - dturnover(:)
+             turnover(:,ivm,ifruit,initrogen) = turnover(:,ivm,ifruit,initrogen) + dturnover(:)
+!DSGdebug_04
+             dturnover(:) = biomass(:,ivm,isapabove,initrogen) * leaf_frac(:,ivm,ilage) * turnover_rate(:)
+             biomass(:,ivm,ilabile,initrogen) = biomass(:,ivm,ilabile,initrogen) + recycle_leaf(ivm) * dturnover(:)
+             biomass(:,ivm,isapabove,initrogen) = biomass(:,ivm,isapabove,initrogen) - dturnover(:)
+             turnover(:,ivm,isapabove,initrogen) = turnover(:,ivm,isapabove,initrogen) +  ( un - recycle_leaf(ivm) ) * dturnover(:)
+!DSGdebug_04
+}}}
 = Bugs not fixed =
 == '''1. Mass conservation issue: stomate_phenology.f90''' ==