0028 R FI.KL=(SUN.JK*C54*PAR.K)/.0045 MG/SQ MT*MO FISH FOOD PRODUCTION RATE
0029 C C54=2E-4 COEFFICIENT TO CONVERT SUNLIGHT TO AVAILABLE FOOD
0030 NOTE FISH BIOMASS
0031 L FIS.K=FIS.J+DT*(FII.JK-FR.JK-FUA.JK-FP.JK-FK.JK-BP.JK-EAT.JK)
0032 N FIS=.1 MG DRY WEIGHT INITIAL BIOMASS OF FISH
0033 NOTE FISH INTAKE
0034 R FII.KL=C55*FIS.K*FI.JK-C53*FIS.K*FIS.K MG/SQ MT*MO FISH INTAKE OF FOOD
0035 C C53=5E-5 SLOWED GROWTH
0036 C C55=1.45E-3
0037 NOTE FISH UNASSIMILATED FOOD
0038 NOTE FUA SHOULD EQUAL FII*0.2
0039 R FUA.KL=C55*FIS.K*FI.JK*0.2 MG/SQ MT*MO FISH UNASSIMILATED FOOD
0040 NOTE FISH RESPIRATION
0041 T TQ10=.9548/.9959/1.012/1.023/.8456/.7615/.6874/.8004/.6585/.8107/
0042 X .8126/.9322
0043 A Q10.K=TABHL(TQ10,TOM.K,1,12,1)
0044 R FR.KL=C52*FIS.K*Q10.K*(2.6644-0.44538*FD.K+0.03143*FD.K*FD.K)
0045 C C52=1 ADJUSTABLE COEFFICIENT
0046 NOTE FISH GROWTH
0047 L FG.K=FII.JK-FR.JK-FUA.JK
0048 N FG=0.21 MG/SQ MT*MO FISH GROWTH INITIALLY
0049 NOTE
0050 NOTE FISH DENSITY
0051 A FD.K=FIFGE(((FIS.K*.001)/PAR,.K),1E-5,((FIS.K*0.001)/PAR.K),0) GM/SQ MT
0052 N FD=.1628
0053 NOTE PREDATION ON FISH PROPORTIONAL TO FISH DENSITY
0054 R FP.KL=C58*FD.K MG/SQ MT*MO PREDATION ON FISH
0055 C C58=265.
0056 R FK.KL=C60*FIS.K*FIFGE(FIFGE(1,ZERO,0.20,PAR.K),ZERO,FD.K,C41)
0057 C C41=0.5
0058 C C60=0.719 FISH KILL CONSTANT
0059 NOTE
0060 NOTE-TOTAL BIOMASS IN WATER SURFACE AREA