| 178 | [...] |
| 179 | {{{ |
| 180 | ! Not enough carbon to pay the deficit |
| 181 | ! There is likely a bigger problem somewhere in |
| 182 | ! this routine |
| 183 | WRITE(numout,*) 'WARNING 11: PFT, ipts: ',j,ipts |
| 184 | CALL ipslerr_p (3,'growth_fun_all',& |
| 185 | 'WARNING 11: numerical problem overspending ',& |
| 186 | 'when trying to account for unallocatable C ','') |
| 187 | |
| 188 | ENDIF |
| 189 | |
| 190 | ELSE |
| 191 | |
| 192 | ! Move the unallocated carbon back into the labile pool |
| 193 | !DSGdebug_01b: no need to as we did not yet subtracted bm_alloc_tot |
| 194 | !DSGdebug_01b biomass(ipts,j,ilabile,icarbon) = & |
| 195 | !DSGdebug_01b biomass(ipts,j,ilabile,icarbon) - residual(ipts,j) |
| 196 | |
| 197 | ENDIF |
| 198 | |
| 199 | }}} |
| 200 | |