diff --git a/exploration/GR3D_Rdescription/GR3Dfunction.R b/exploration/GR3D_Rdescription/GR3Dfunction.R
index a8a288414cbb5c8ec0b635f4f2520c9608ea79ce..ee007ca15cfd6b5435722ed13514b59ed91807b5 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)