Laserfiche WebLink
<br />O. ., ., (., <br />J .1.J1. ;;'* <br /> <br />2 is read by the new subroutine OPENCR.FOR to specify which files are desired <br />for a given CRSM run without recompiling the program. <br /> <br />. Compiling and Linking batch files were developed to assist in the porting <br />process. Note, the Lower Region's ported model is stored in directory <br />CRSS/LR/CRSM while the objective files which result from compiling are stored <br />in directory CRSS/LR/OBJ. <br /> <br />. Common blocks were removed from each subroutine to simplify the designation <br />of character types and insure consistent common block size designation from one <br />subroutine to the next. They are stored in the same directory as the program <br />(CRSS/LR/CRSM) and are inserted into each subroutine during the compiling <br />process by using the INCLUDE command. <br /> <br />. A BLOCKDAT subroutine was created to allow initialization of common block <br />variables. <br /> <br />. Screen output was added to subroutine CRSM9l.FOR to allow the user to <br />monitor progress during execution. Also subroutines INITIAL.FOR and <br />READER. FOR temporarily have additional screen or file output for checking <br />during the porting process. <br /> <br />. The data files provided for the CRSM control, SMDm input, and TAPEDIT <br />input did not include an end of record indicator. To utilize these files they were <br />reformatted to include an end of record indicator. <br /> <br />. Multi-Trace operations were implemented by revising subroutine INITIAL.FOR <br />to rewind file 15 (a temporary output file). In addition, INlTIAL.FOR was <br />revised to rewind file 38 (the random number data) when the control card variable <br />39 is set to zero. (Control card variable 39 is a option used to reset the random <br />seed at the start of each trace. If it equals 0 the same random seed in used for each <br />year of a multi-trace analysis. If it equals I, a new random seed is used for each <br />year of a multi-trace analysis). To better match the USBR's CYBER results a data <br />file of random values was generated by the USBR Lower Region in April, 1994. <br />This data file, named RANFMTR.DAT, contains enough data to run an 85 year <br />trace of 100 years with the control card variable 39 set to either 0 or I. Other <br />revisions associated with the Multi-Trace capability are described in the section <br />titled Internal mass storage. <br /> <br />. The Reservoir balance printed within subroutine SCRIB2.FOR when the third <br />value of the control card is set to 1 does not currently include water pumped from <br />a reservoir (which occurs from Mead and Navajo) and water lost to the adjustment <br />for sediment inflow. To correct this oversight, the printout generated by <br /> <br />3 <br />