New logit function with log19 for spawner survival after reproduction

exploration/GR3D_Rdescription/GR3Dfunction.R

@@ -190,6 +190,13 @@ spawnerSurvivalPostReproductionTempRef <- function(Triver,Tref, coeffa, coeffb){
   
 }
 
+#Logit for survival after reproduction with log19
+#similar to spawnerSurvivalPostReproductionWithTempRef which include a
+
+logit2 = function(Triver, Tref,minTempForIteroparity){
+  return( 1/ (1+exp((log(19)/(minTempForIteroparity-Tref))*(Triver-Tref))))
+}
+
 #Dome-shape curve with temperature effect 
 spawnerSurvivalPostReproductionWithBellCurve <- function(Triver, Tmin, Topt, Tmax, coeffb){
   
@@ -210,3 +217,4 @@ spawnerSurvivalPostReproductionWithBellCurve <- function(Triver, Tmin, Topt, Tma
 
 
 
+