Changes between Version 25 and Version 26 of Branches/MergeOCN/Goll

Timestamp:

2015-05-27T11:44:27+02:00 (9 years ago)

Author:

dgoll

Comment:

--

Branches/MergeOCN/Goll

@@ -222 +222 @@
 }}}
 
+{{{
+                ! Calculate the available biomass in roots, sapwood and leaves (gC ind-1)
+                IF ( biomass(i,j,ileaf,icarbon) .LT. min_stomate .AND. biomass(i,j,iroot,icarbon) .LT. min_stomate) THEN
+
+                   Cs_grass = biomass(i,j,isapabove,icarbon)
+
+                ELSE
+                   WRITE(6,*) 'There is leaf or root carbon that should not be here, something could have gone wrong in senescence'
+                   !DSGdebug_07: that doesn't give you the right to violate mass consrvation 
+                   !Cs_grass = biomass(i,j,isapabove,icarbon)
+                   Cs_grass = biomass(i,j,isapabove,icarbon) +  &
+                              biomass(i,j,ileaf,icarbon) +  &
+                              biomass(i,j,iroot,icarbon)
+                   !DSGdebug_07: 
+                ENDIF
+}}}
 
 = '''Mass conservation checks''' =