Add one more fonction to compute survival after spawning

exploration/GR3D_Rdescription/GR3Dfunction.R

@@ -172,8 +172,17 @@ stockRecruitementRelationship <- function(Triver,Tmin, Topt, Tmax, survivalStock
 # ----------------------------------------------
 # Spawner survival after reproduction 
 #----------------------------------------------
-#Logit with temperature effect
-spawnerSurvivalPostReproduction <- function(Triver,Tref, coeffa, coeffb){
+#Logit with temperature effect depending on a Triver 
+spawnerSurvivalPostReproductionTempRiver <- function(Triver, coeffa, coeffb){
+  
+  spRiverPostSpawn = (coeffb/ (1 + exp(coeffa*(Triver))))
+  
+  return(spRiverPostSpawn)
+  
+}
+
+#Logit with temperature effect depending on the difference between the river temperature and Tref
+spawnerSurvivalPostReproductionTempRef <- function(Triver,Tref, coeffa, coeffb){
   
   spRiverPostSpawn = (coeffb/ (1 + exp(coeffa*(Triver-Tref))))