0061 C ZERO=0.0
0062 R BP.KL=(IN.JK/5.8E9)*100 BIRD PREDATION
0063 NOTE PREDATOR FISH COMPARTMENT
0064 A GD.K=GAR.K/PAR.K
0065 L GAR.K=GAR.J+DT*(EAT.JK-RES.JK-DIE.JK)
0066 R EAT.KL=C61*GAR.K*FIFGE(LOGN(l+FD.K),0,LOGN(l+FD.K),0)
0067 X -C64*GAR.K*GAR.K PREDATION BY GAR
0068 R RES.KL=C62*GAR.K
0069 R DIE.KL=C63*GAR.K*KIL.K
0070 C C61=0.6067 CONSUMPTION
0071 C C62=0.5818 RESPIRATION
0072 C C63=1.0
0073 N GAR=0.9
0074 C C64=1.0E-5 SLOWED GROWTH
0075 A KIL.K=FIFGE(FIFGE(0.25,0,0.8,PAR.K)+FIFGE(0.25,0,0.6,PAR.K)+FIFGE(
0076 X 0.25,0,0.4,PAR.K)+FIFGE(0.25,0,0,PAR.K),0,GD.K,10)
0077 NOTE
0078 NOTE WOOD STORK COMPARTMENT
0079 NOTE BIRD BIOMASS WITH MIGRATION SWITCH
0080 L B.K=B.J*(1-PULSE(1,1.5,12))+DT*(IN.JK-OU.JK-FIX.JK)+N5.J*LW*PULSE(1,
0081 X 3.5,12)
0082 A LAY..K=FIFGE(1,0,AVWT.K,MWEE)*OFF.K
0083 N OFF=0
0084 L OFF.K=OFF.J*0.0+DT*C100*(FIFGE(OFF.J,0,0,LAY.J)+
0085 X FIFGE(PULSE(1,2,12),0,0,OFF.'))
0086 L NY.K=NY.J*(1-PULSE(1,3.5,12))+DT*C100*(NUM.J)
0087 A NUM.K=N5.K*LAY.K*1.5
0088 A AVWT.K=B.K/(N5.K+NY.K)
0089 R FIX.KL=B.K*BAL
0090 R OU.KL=B.K*(0.1285-((8.959E-5)*AVWT.K))*FIFGE(1,0,FD.K,TFD)
0091 X *FIFGE(1,0,COUNT.K,3.5)
0092 R IN.KL=B.K*PART*FIFGE(LOGN(4.6*FD.K),0,LOGN(4.6*FD.K),0)*(0.1285-8.959
0093 X E-5*AVWT.K)*FIFGE(1,0,FD.K,TFD)*FIFGE(0,1,0,(1-(AVWT.K/1050)))
 Lo