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