************************************************************ 



* PART 3 . IDENTIFY YEAR- DEPENDENT PARAMETERS AND VALUES * 



* FOR VARIABLES OTHER THAN PASSAGE AND OCEAN HARVEST * 

 ************************************************************. 



%MACRO VARYEAR; /* OPTIONAL SUBROUTINE */ 

 * SELECT; 



*WHEN (0 < YEAR <= 2) DO; 

 *parm = value; 



*END; 



♦WHEN (2 < YEAR <= 5) DO; 

 *parrn = value 



*END; 



* et cetera; 



♦OTHERWISE parm = value; 



*END; 



%MEND VARYEAR; 



******************************************************** 



* PART 4. IDENTIFY OUTPUT VARIABLES OF INTEREST * 



****************************************** 



%MACRO KEEPLIST; /* THESE VARIABLES WILL BE INCLUDED IN OUTPUT FILE */ 

 KEEP STEP &STEPVAR STOCK GAME YEAR STRATID P_OPTION H_OPTION 



subesp subharv recruits spawners hsubesp hsubharv hrecruit hspawn 

 espwild; 



stratid = 'test case'; /* IDENTIFY STRATEGY */ 



P_OPTION = &PASS; 

 H_OPTION = &ADULT; 

 %MEND KEEPLIST; 



******************************************************* 



* PART 5. OUTPUT CONTROL * 

 *******************************************************. 



%MACRO YEAROUT; 



ALLYEARS= 'Y' ; /* PUT Y IF OUTPUT WANTED EACH YEAR, */ 



/* PUT N IF OUTPUT ONLY ON LAST YEAR */ 



%MEND YEAROUT; 



******************************************************* 



* PART 6. CALLS TO OTHER PROGRAMS * 

 *******************************************************. 



% INCLUDE 'slcm6_l.mod' /SOURCE2; 



C.2 Production 

 Parameters 



*** filename 



test61j .par 





FACBASE: 



/* Identifies 



a specific parameter set */ 



* * * Natural 



Production Parameters ***; 



stock = 



3; 



/* stock identifier */ 



f f em = 



0.583; 



/* fraction female */ 



prspsv = 



0.85; 



/* prespawning survival */ 



egf em = 



4297; 



/* mean eggs per female */ 



stdegg = 



233; 



/* std. error of egf em */ 



jackspn = 



0; 



/* spawning contribution of 1-ocean fish */ 



logtscl = 



1.0; 



/* logit scale parameter */ 



alpha = 



-1.73; 



/* density-indp. juvenile survival parm. */ 



beta = 



8.41e-08; 



/* density-dep. juvenile survival parm. */ 



28 



