Changes between Version 41 and Version 42 of Branches/MergeOCN/Goll

Timestamp:

2015-06-05T16:24:44+02:00 (9 years ago)

Author:

dgoll

Comment:

--

Branches/MergeOCN/Goll

@@ -427 +427 @@
                                           (  leaf_frac(:,ivm,ilage) * turnover_rate(:)  * recycle_root)
 }}}
-
+=== UPDATE 05/06/2015 ===
+stomate_growth_fun_all.f90
+Fruits were forgotten in these calculations
+{{{
+                      ! Allocation of icarbres at the tree level (gC tree-1)
+                      circ_class_biomass(ipts,j,l,icarbres,m) = temp_share * &
+                           biomass(ipts,j,icarbres,m) / circ_class_n(ipts,j,l)
+                      IF((m .EQ. initrogen).OR.(m .EQ. iphosphorus)) THEN
+                         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
+                      ENDIF
+                   ELSE
+
+                      circ_class_biomass(ipts,j,l,ilabile,m)  = zero
+                      circ_class_biomass(ipts,j,l,icarbres,m) = zero
+                      IF((m .EQ. initrogen).OR.(m .EQ. iphosphorus)) THEN
+                         circ_class_biomass(ipts,j,l,ileaf,m)       = zero
+                         circ_class_biomass(ipts,j,l,isapabove,m)   = zero
+                         circ_class_biomass(ipts,j,l,isapbelow,m)   = zero
+                         circ_class_biomass(ipts,j,l,iheartabove,m) = zero
+                         circ_class_biomass(ipts,j,l,iheartbelow,m) = zero
+                         circ_class_biomass(ipts,j,l,iroot,m)       = zero
+                         !DSGdebug_12a
+                         circ_class_biomass(ipts,j,l,ifruit,m)       = zero
+                         !DSGdebug_12a
+                      ENDIF
+                   ENDIF
+}}}
 
 = '''Mass conservation checks''' =