repair gparm output to adjust for -VBK change

Rick-Methot-NOAA · Rick-Methot-NOAA · commit 1649acc955ac · 2026-06-23T15:31:58.000-07:00
diff --git a/SS_biofxn.tpl b/SS_biofxn.tpl
@@ -1988,13 +1988,13 @@ FUNCTION void get_saveGparm()
         save_G_parm(save_gparm, 7) = value(Lmax_temp(gp));
         if (do_ageK == 1)
         {
-          save_G_parm(save_gparm, 8) = value(-VBK(gp, nages) * VBK_seas(0));
-          save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (-VBK(gp, nages) * VBK_seas(0)) + AFIX + azero_G(g));
+          save_G_parm(save_gparm, 8) = value(VBK(gp, nages) * VBK_seas(0));
+          save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (VBK(gp, nages) * VBK_seas(0)) + AFIX + azero_G(g));
         }
         else
         {
-          save_G_parm(save_gparm, 8) = value(-VBK(gp, 0) * VBK_seas(0));
-          save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (-VBK(gp, 0) * VBK_seas(0)) + AFIX + azero_G(g));
+          save_G_parm(save_gparm, 8) = value(VBK(gp, 0) * VBK_seas(0));
+          save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (VBK(gp, 0) * VBK_seas(0)) + AFIX + azero_G(g));
         }
 
         save_G_parm(save_gparm, 10) = value(L_inf(gp));

Original file line number	Diff line number	Diff line change
`@@ -1988,13 +1988,13 @@ FUNCTION void get_saveGparm()`
`1988`	`1988`	`save_G_parm(save_gparm, 7) = value(Lmax_temp(gp));`
`1989`	`1989`	`if (do_ageK == 1)`
`1990`	`1990`	`{`
`1991`		`- save_G_parm(save_gparm, 8) = value(-VBK(gp, nages) * VBK_seas(0));`
`1992`		`- save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (-VBK(gp, nages) * VBK_seas(0)) + AFIX + azero_G(g));`
	`1991`	`+ save_G_parm(save_gparm, 8) = value(VBK(gp, nages) * VBK_seas(0));`
	`1992`	`+ save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (VBK(gp, nages) * VBK_seas(0)) + AFIX + azero_G(g));`
`1993`	`1993`	`}`
`1994`	`1994`	`else`
`1995`	`1995`	`{`
`1996`		`- save_G_parm(save_gparm, 8) = value(-VBK(gp, 0) * VBK_seas(0));`
`1997`		`- save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (-VBK(gp, 0) * VBK_seas(0)) + AFIX + azero_G(g));`
	`1996`	`+ save_G_parm(save_gparm, 8) = value(VBK(gp, 0) * VBK_seas(0));`
	`1997`	`+ save_G_parm(save_gparm, 9) = value(-log(L_inf(gp) / (L_inf(gp) - Lmin(gp))) / (VBK(gp, 0) * VBK_seas(0)) + AFIX + azero_G(g));`
`1998`	`1998`	`}`
`1999`	`1999`
`2000`	`2000`	`save_G_parm(save_gparm, 10) = value(L_inf(gp));`