Changes between Version 27 and Version 28 of Branches/MergeOCN/Goll

Timestamp:

2015-05-27T12:00:41+02:00 (9 years ago)

Author:

dgoll

Comment:

--

Branches/MergeOCN/Goll

@@ -232 +232 @@
                    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 justify to violate mass conservation
-                   !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: 
+                   Cs_grass = biomass(i,j,isapabove,icarbon)
+
                 ENDIF              
 }}}
+{{{
+                  ! Cl_init and Cr_init were recalculated to properly account for bm_use (the available C)
+                   IF (j==test_pft)  WRITE (6,*) 'Cr_init (end)=',Cr_init
+
+!DSGdebug_07                   biomass(i,j,ileaf,icarbon)      = Cl_init
+!DSGdebug_07                   biomass(i,j,iroot,icarbon)      = Cr_init
+                   biomass(i,j,ileaf,icarbon)      = biomass(i,j,ileaf,icarbon) + Cl_init
+                   biomass(i,j,iroot,icarbon)      = biomass(i,j,iroot,icarbon) + Cr_init
+!DSGdebug_07
+}}}
+
 
 = '''Mass conservation checks''' =