Model III of Water Area, Fish, and Wood Storks


0000 FISH AND BIRD MODEL (PRIMITIVE)
0001 NOTE
0002 NOTE TIME INCREMENT FUNCTIONS
0003 NOTE USE MONTH.K FUNCTION AND 13 VALUES FOR ENTERPOLATION BETWEEN POINTS
0004 NOTE USE TOM.K AND 12 VALUES FOR EXACT POINTS REPEATED
0005 NOTE BOTH TOM AND MONTH CARDS ARE NEEDED TO USE MONTH
0006 L TOM.K=FIFGE(1,(FIFGE(TOM.J+1,TOM.J,MONTH.J+DT,TOM.J+1)),MONTH.J+DT,13)
0007 N TOM=1
0008 L MONTH.K=FIFGE(1+DT,MONTH.J+DT,MONTH.J,13)
0009 N MONTH=1
0010 L COUNT.K=COUNT.J*(1-PULSE(1,0,12))+DT*(1.0)
0011 N COUNT=0
0012 NOTE SPEC CARD MUST BE CHANGED EACH TIME LENGTH OF RUN IS CHANGED
0013 NOTE
0014 NOTE
0015 NOTE SUNLIGHT UNITS ARE KCAL/SQUARE METER/MONTH
0016 NOTE SUN TABLE BEGINS WITH JUNE 5 YR AVERAGES, BELLE GLADE
0017 T TSUN=149310/141095/139655/129960/117485/102110/88855/87345/91320/
0018 X 115035/144005/155085/149310
0019 R SUN.KL=TABHL(TSUN,MONTH.K,1,13,1)
0020 NOTE
0021 NOTE
0022 NOTE SURFACE WATER AREA IN UNITS OF ACRES
0023 A LAN.K=L4.K FROM WATER MODEL
0024 NOTE PAR IS PERCENT WETLANDS COVERED BY WATER
0025 A PAR.K=LAN.K/1.43E6
0026 NOTE FOOD AVAILABLE TO FISH (SUN ENERGY PASSING THROUGH TROPHIC LEVELS)
0027 NOTE KCAL ARE CONVERTED TO MILLIGRAMS BY DIVIDING BY .0045


 '-'4