Changes between Version 58 and Version 59 of Branches/MergeOCN/Goll

Timestamp:

2015-06-16T15:48:08+02:00 (9 years ago)

Author:

dgoll

Comment:

--

Branches/MergeOCN/Goll

@@ -196 +196 @@
 
              ENDIF
+
+}}}
+=== UPDATE [16/06/2015]===
+In the case the individual is going to die, the resp_maint is subtracted although it is subtracted later (for all possible cases).
+So I uncomment this.
+{{{
+                ! Not enough carbon to pay the deficit, the individual 
+                ! is going to die at the end of this day
+                bm_alloc_tot(ipts,j) = bm_alloc_tot(ipts,j) + &
+                     biomass(ipts,j,icarbres,icarbon)
+                !DSGdebug_01: this is done already few lines later 
+                !DSGdebug_01c biomass(ipts,j,icarbres,icarbon) = zero
+
+                ! Truncate the maintenance respiration to the available carbon
+                resp_maint(ipts,j) = bm_alloc_tot(ipts,j)
+
+}}}
+and add a max function to ensure the pools doesn't get negative due to computer precision: 
+{{{   
+         ! Final ::resp_maint is know
+          bm_alloc_tot(ipts,j) = bm_alloc_tot(ipts,j) - resp_maint(ipts,j)
+
+          !DSGdebug_01c
+          biomass(ipts,j,ilabile,icarbon) = MAX(biomass(ipts,j,ilabile,icarbon) - &
+                                            (resp_maint(ipts,j) + deficit),zero)
+          !DSGdebug_01c
 
 }}}