From d43fcf3e02a01145ca186ef050e28266514793a3 Mon Sep 17 00:00:00 2001
From: "camille.poulet" <camille.poulet@irstea.fr>
Date: Wed, 24 Mar 2021 17:15:27 +0100
Subject: [PATCH] Correction_GR3D_function

---
 exploration/GR3D_Rdescription/GR3Dfunction.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/exploration/GR3D_Rdescription/GR3Dfunction.R b/exploration/GR3D_Rdescription/GR3Dfunction.R
index a8a2884..ee007ca 100644
--- a/exploration/GR3D_Rdescription/GR3Dfunction.R
+++ b/exploration/GR3D_Rdescription/GR3Dfunction.R
@@ -101,7 +101,7 @@ spawnerSurvivalPreReproduction <- function(Triver,Tmin, Topt, Tmax){
   #River survival
   survProbOptRiver =  survivePar$survProbOptRiver
   
-  spRiver = survProbOptRiver * TemperatureEffect(Triver, Tmin, Topt, Tmax)
+  spRiver = survProbOptRiver * temperatureEffect(Triver, Tmin, Topt, Tmax)
   
   #StockAfterSurv = S * SpRiver
   
@@ -159,7 +159,7 @@ stockRecruitementRelationship <- function(Triver,Tmin, Topt, Tmax, survivalStock
   alleeEffect = 1/(1 + exp(-log(19)*(survivalStock - n/ratioS95_S50*surfaceWatershed)/(n*surfaceWatershed - n/ratioS95_S50*surfaceWatershed)))
   
   
-  Rj = (alphaj * SurvivalStock * alleeEffect)/(betaj + survivalStock * alleeEffect)
+  Rj = (alphaj * survivalStock * alleeEffect)/(betaj + survivalStock * alleeEffect)
   
   #Rj = ((aj * S) * p)/(Bj +S * p)
   
-- 
GitLab