1PAGE 1 CEDAR LAKE ENERGY BALANCE (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE CEDAR LAKE ENERGY BALANCE
0002 * SOURCE
0003 * NOWARN
0004 * NARROW
0005 * ABINT
0006 NOTE
0007 NOTE
0008 NOTE PLANTS
0009 N PLANT=24.0
0010 A PL1.K=(CC1+C255+C48)*PLANT.K
0011 A P2.K=CLIP(P65,ONE,PLANT.K,N28)*PLANT.K
0012 R RPLANT.KL=SUN.K-PL1.K
0013 L PLANT.K=INTGRL(RPLANT.JK)
0014 NOTE
0015 NOTE
0016 NOTE HERBEVIORS
0017 N HERB=.6
0018 A H1.K=C48*PLANT.K
0019 A H2.K=(C690+C612+C485)*HERB.K
0020 R RHERB.KL=(CC1)(H1.K-H2.K)
0021 L HERB.K=INTGRL(RHERB.JK)
0022 NOTE
0023 NOTE
0024 NOTE CARNIVORS
0025 N CARN=.6
0026 A C1.K=C485*HERB.K
0027 A C2.K=(C270+C195)(CARN.K)
0028 R RCARN.KL=C1.K-C2.K
0029 L CARN.K=INTGRL(RCARN.JK)
0030 NOTE
0031 NOTE
0032 NOTE ORGANIC
0033 N ORGAN=0
0034 A O1.K=C255*PLANT.K
0035 A O2.K=C612*HERB.K
0036 A O3.K=C270*CARN.K
0037 R RORGAN.KL=O1.K+O2.K+O3.K
0038 L ORGAN.K=INTGRL(RORGAN.JK)
0039 NOTE
0040 NOTE
0041 NOTE ENVIRONMENT
0042 N ENVIRO=0
0043 A E1.K=CC1*PLANT.K
0044 A E2.K=C690*HERB.K
0045 A E3.K=C270*CARN.K
0046 R RENVRO.KL=E1.K+E2.K+E3.K
0047 L ENVIRO.K=INTGRL(RENVRO.JK)
0048 NOTE
0049 NOTE
0050 NOTE SUN'S ENERGY INPUT TO THE LAKE
0051 A SUN.K=C959*(CC1+C0635*SIN(TIME.K*CC2*C314))
0052 NOTE AVERAGE ENERGY IN THE LAKE
0053 A ENERGY.K=(PLANT.K+HERB.K+CARN.K+ORGAN.K-ENVIRO.K+SUN.K)/TIME.K
0054 NOTE CONSTANTS
0055 C P003=.003
1PAGE 2 CEDAR LAKE ENERGY BALANCE (C) 1978 UND
0056 C P0416=.0416
0057 C P1=.1
0058 C P3=.3
0059 C P5=.5
0060 C P6=.6
0061 C P65=.65
0062 C P7=.7
0063 C ONE=1
0064 C ZERO=0
0065 C N28=28
0066 C CC1=1.00
0067 C C255=2.55
0068 C C48=.48
0069 C C690=6.90
0070 C C612=6.12
0071 C C485=4.85
0072 C C270=2.70
0073 C C959=95.9
0074 C C0635=.0635
0075 C CC2=2.00
0076 C C314=3.14
0077 C C195=1.95
0078 NOTE CONTROL CARDS
0079 PARM DT=.01
0080 PARM START=1
0081 PARM STOP=51
0082 PARM PRTPER=2
0083 PARM PLTPER=2
0084 PRINT PLANT,CARN,ORGAN,ENVIRO,ENERGY
0085 PLOT PLANT/CARN/ORGAN/ENVIRO/ENERGY
1PAGE 3 CEDAR LAKE ENERGY BALANCE (C) 1978 UND
* * * S T A T S A N D O P T I O N S * * *
85 SOURCE STATEMENTS
NO DIAGNOSTIC MESSAGES
CARD TYPE OCCURRENCE
C 23
PARM 5
N 5
L 5
A 14
R 5
* 4
NOTE 21
PRINT 1
PLOT 1
TITLE 1
OPTIONS IN EFFECT:
NOCHECK NOSYSTEM NODOCUMENT NARROW
STATS GO NOSYMBOL NOXREF
NOWARN NOOBJECT SOURCE NOTIME
INTEGRATION METHOD:
ADAMS-BASHFORTH PREDICTOR
1PAGE 4 CEDAR LAKE ENERGY BALANCE (C) 1978 UND
TIME PLANT CARN ORGAN ENVIRO ENERGY
E+00 E+00 E-03 E+03 E+03 E+00
2.000 23.123 658.19 0.0670 0.0302 78.491
4.000 23.104 656.98 0.1998 0.0903 57.425
6.000 23.101 657.03 0.3325 0.1503 50.406
8.000 23.099 657.09 0.4653 0.2103 46.896
10.000 23.096 657.14 0.5981 0.2703 44.790
12.000 23.093 657.20 0.7309 0.3303 43.386
14.000 23.091 657.25 0.8637 0.3903 42.383
16.000 23.088 657.31 0.9965 0.4503 41.631
18.000 23.086 657.36 1.1293 0.5104 41.046
20.000 23.083 657.42 1.2621 0.5704 40.578
22.000 23.081 657.48 1.3948 0.6304 40.195
24.000 23.078 657.53 1.5276 0.6904 39.876
26.000 23.076 657.59 1.6604 0.7504 39.606
28.000 23.073 657.65 1.7932 0.8104 39.374
30.000 23.071 657.71 1.9260 0.8705 39.174
32.000 23.068 657.77 2.0588 0.9305 38.998
34.000 23.066 657.82 2.1916 0.9905 38.844
36.000 23.064 657.88 2.3244 1.0505 38.706
38.000 23.061 657.94 2.4572 1.1105 38.583
40.000 23.059 658.00 2.5899 1.1705 38.472
42.000 23.057 658.06 2.7227 1.2305 38.372
44.000 23.055 658.12 2.8555 1.2906 38.281
46.000 23.053 658.19 2.9883 1.3506 38.197
48.000 23.051 658.25 3.1211 1.4106 38.121
50.000 23.048 658.31 3.2539 1.4706 38.051
1PAGE 5 CEDAR LAKE ENERGY BALANCE (C) 1978 UND
P=PLANT C=CARN O=ORGAN E=ENVIRO A=ENERGY
P 23 23.25 23.5 23.75 24
C .65 .6525 .655 .6575 .66
O 66 874.5 1683 2491.5 3300
E 30 397.5 765 1132.5 1500
A 38 48.25 58.5 68.75 79
2 O . . .P. . . . . . . . . . . . . . . . . . . C . . . .A. OE
. O P . A. C . . OE
. OP . A . C . . OE
T . PO A . . C . . OE
I . P O . . C . . OEA
M . P A EO . . C . .
E . PA O . C. . OE
. P . O . C. . PA,OE
. AP . O . C. . OE
. AP . O . C . OE
22 . .A.P. . . . . . . . .O. . . . . . . . . C . . . . . . . OE
. AP . O . C . OE
. A P . EO .C .
. A P . . O .C . OE
. A P . . O .C . OE
.A P . . EO .C .
.A P . . O . C . OE
.A P . . O . C . OE
.A P . . O. C . OE
.A P . . .EOC .
42 .A.P. . . . . . . . . . . . . . . . . . . . .CO . . . . . OE
A P . . . C O . OE
A P . . . C EO .
A P . . . C O . OE
50 A .P. . . . . . . . . . . . . . . . . . . . . .C. . . .O. OE