Changes between Version 55 and Version 56 of Branches/MergeOCN/Goll

Timestamp:

2015-06-16T11:16:16+02:00 (9 years ago)

Author:

dgoll

Comment:

--

Branches/MergeOCN/Goll

@@ -645 +645 @@
                 !DSGdebug_16
 }}}
-
+== 14. Mass conservation issue: stomate_growth_fun_all.f90 ==
+All the circ_class_biomass pools have to updated after the actual growth (accounting for nutrient limitation) is known.
+{{{
+                     !DSGdebug_16 IF((m .EQ. initrogen).OR.(m .EQ. iphosphorus)) THEN
+                     ! we need to synchronize all the circ_class pools if it is
+                     ! carbon or nutrients:
+                         circ_class_biomass(ipts,j,l,ileaf,m) = temp_share * &
+                           biomass(ipts,j,ileaf,m) / circ_class_n(ipts,j,l)
+                         circ_class_biomass(ipts,j,l,isapabove,m) = temp_share * &
+                           biomass(ipts,j,isapabove,m) / circ_class_n(ipts,j,l)
+                         circ_class_biomass(ipts,j,l,isapbelow,m) = temp_share * &
+                           biomass(ipts,j,isapbelow,m) / circ_class_n(ipts,j,l)
+                         circ_class_biomass(ipts,j,l,iheartabove,m) = temp_share * &
+                           biomass(ipts,j,iheartabove,m) / circ_class_n(ipts,j,l)
+                         circ_class_biomass(ipts,j,l,iheartbelow,m) = temp_share * &
+                           biomass(ipts,j,iheartbelow,m) / circ_class_n(ipts,j,l)
+                         circ_class_biomass(ipts,j,l,iroot,m) = temp_share * &
+                           biomass(ipts,j,iroot,m) / circ_class_n(ipts,j,l)
+                         !DSGdebug_12a
+                         circ_class_biomass(ipts,j,l,ifruit,m) = temp_share * &
+                           biomass(ipts,j,ifruit,m) / circ_class_n(ipts,j,l)
+                         !DSGdebug_12a
+                     !DSGdebug_16  ENDIF
+}}}
 
 = '''Mass conservation checks''' =