c This block common is contains local variables used for a c simulation run for MAIN. c + + + VARIABLE DECLARATIONS + + + character clifil*80 character dinfil*80 character hinfil*80 character runfil*80 character simout*80 character sinfil*80 character subfil*80 character tinfil*80 character usrid*80 character usrloc*80 character usrnam*80 character winfil*80 character series(mnsub)*80 c character wsum*80 integer daysim integer erosrpt integer gnrpt(8) integer id integer im integer iy integer ijday integer ld integer lm integer ly integer lopday integer lopmon integer lopyr integer ljday integer maxper integer outcnt integer tyears logical subflg real flmres(mnsub), stmres(mnsub) common / simday / c clifil, dinfil, hinfil, runfil, simout, sinfil, c subfil, tinfil, usrid, usrloc, usrnam, winfil, c series, i daysim, erosrpt, gnrpt, i id, im, iy, ijday, i ld, lm, ly, ljday, i lopday, lopmon, lopyr, i maxper, i outcnt, tyears, l subflg, r flmres, stmres c + + + VARIABLE DEFINITIONS + + + c clifil - This variable holds the CLIGEN input file name. c daysim - This variable contains the curret day number of c the simulation run. c range values min max c ------------ --------- --------- c fixed 1 - c typical 1 - c ------------ --------- --------- c dinfil - This variable holds the decomp input file name. c erosrpt - This varaible array holds flags for printing period. c flmres - Temporary variable for flat residue totals for the day c stmres - Temporary variable for standing residue totals for the day c gnrpt - This varaible array holds flags for printing c general output forms where 1 = print output and c 0 = print no output. c hinfil - This variable holds the hydrology input file name. c id,im,iy - These variables contain the values for the initial c day, month, and year of the simulation run. c ijday - This variable contains the initial julian day of c the simulation run. c ld,lm,ly - The last day, month, and year of simulation. c ljday - This variable contains the last julian day of c the simulation run. c lopday - The day, month, and year of the last operation. c lopmon c lopyr c maxper - The maximum number of years in a rotation of all c subregions. c outcnt - Counter that holds number of times output is c written to the temporary file holding accounting region c erosion values. With this, weps can calculate the number c of output periods. c runfil - This variable holds the simulation run input file name. c series - This character variable contains the soil series name c for each subregion. c simout - This variable holds the simulation output file name. c sinfil - This variable holds the soil input file name. c subfil - This variable holds the subdaily wind information c ('real data') file name. c subflg - This logical variable is used to read header information c in the subdaily wind file (if .true., read header). c tyears - The total number of years in the simulation run. c usrid - This character variable is an identification string c to aid the user in identifying the simulation run. c usrloc - This character variable holds a location c description of the simulation site. c usrnam - This character variable holds the user name. c winfil - This variable holds the WINDGEN input file name. c-----------------------------------------------------------------------