Laserfiche WebLink
<br />001281 <br /> <br />INITIAL <br /> <br />MASSBAL <br /> <br />MINl2 <br /> <br />NFIND <br /> <br />PRNFLW <br /> <br />PWRSIM <br /> <br />RANDEV <br /> <br />RANF38 <br /> <br />READER <br /> <br />Subroutine INITIAL performs initializing func- <br />tions at the beginning of each run. Initializing <br />functions include reading data, setting values <br />equal to zero, setting up tables, setting flags, <br />and creating titles. <br /> <br />Subroutine MASSBAL checks the mass balance of wa- <br />ter in the system each month. It compares total <br />inflow with total diversions, evaporation, stor- <br />age, and outflow from the last reach, to see if <br />they are equal (+j-I,OOO acre-ft). <br /> <br />Function MINl2 computes the required flood con- <br />trol release from Lake Mead. The computation is <br />based on expected inflow, existing flood control <br />space, and the Corps of Engineers' flood control <br />regulations for Lake Mead. The function is <br />called in months 1-7. <br /> <br />Function NFIND gives the index of a reach, given <br />the reach number. The index is the array sub- <br />script assigned to the reach for storing data in <br />many of the arrays throughout the program. <br /> <br />Subroutine PRNFLW prints the annual Flow and salt <br />Table. This includes printing the annual values <br />of flow and flow-weighted quality, and computing <br />and printing average values of annual flows, <br />flo~-weighted qu,lities, and salt masses, aver- <br />aged over the nUl ber of years in the runs. <br /> <br />SUbl.outine PWRSIM .odmulates powerplant operation. <br />It computes tailwater elevation, gross head, dis- <br />charge, horsepower, kilowatts, and hours of <br />operation. If power is a first priority, it <br />flags whether the release needs to be increased <br />or decreased to meet firm power. <br /> <br />Function RANDEV converts a pair of uniformly dis- <br />tributed random numbers (generated by function <br />RANF38) to a pair of normally distributed random <br />numbers. <br /> <br />Function RANF38 generates a uniformly distributed <br />random number using a multiplicative congruential <br />method. The random number generator seed is dif- <br />ferent for each call to the function. <br /> <br />Subroutine READER reads and processes a large <br />part of the input data. All transaction cards <br />are read in this subroutine. <br /> <br />7 <br />