Small bug fixes in new root model

RootModule.rgg

@@ -74,6 +74,7 @@ module RootBase extends GrowingOrgan
 	void Bleed(PlantBase pb) {
 		double r = growth>sumGrowth ? growth-sumGrowth : 0;
 		pb.reservePool += r;
+		growth -= r;
 	}
 	
 	void Uptake() {	
@@ -336,7 +337,7 @@ module PrimaryRootOrgan extends GrowingRootOrgan
 	
 	void calcGrowth(RootBase RS) {
 		//C allocated to radial growth
-		double C = potGrowth>0 && RS.sumGrowth>0 ? (pRoot/potGrowth)*RS.growth * potGrowth/RS.sumGrowth : 0;
+		double C = RS.sumGrowth>0 ? Math.min(potGrowth, RS.growth * potGrowth/RS.sumGrowth) : 0;
 		biomass += C;
 
 		radius = Math.sqrt(biomass/(length*Math.PI*RTD[species]*1e6));
@@ -386,7 +387,7 @@ module SecondaryRootOrgan extends ExtendingRootOrgan
 	
 	void calcGrowth(RootBase RS) {
 		//C allocated to fine root growth
-		double C = potGrowth>0 && RS.sumGrowth>0 ? (pRoot/potGrowth)*RS.growth * potGrowth/RS.sumGrowth : 0;
+		double C = RS.sumGrowth>0 ? Math.min(potGrowth, RS.growth * potGrowth/RS.sumGrowth) : 0;
 		biomass += C;
 		
 		FineRootBiomass += C;