! ------------------------------------------------------------------ ! file 'm1flag.inc' ! this common block contains logical variables for the control of ! initializations, printing of output, etc. ! + + + VARIABLE DECLARATIONS + + + logical am0ifl logical am0cif logical am0eif logical am0cgf logical am0dif logical am0sif logical am0oif integer am0hfl integer am0sfl integer am0tfl integer am0cfl integer am0dfl integer am0efl logical am0gdf logical am0til integer am0hrvfl integer am0drmfl integer am0drlfl integer wind_gen_fmt_flag integer cli_gen_fmt_flag common / m1flag / & & am0ifl, am0eif, am0cgf, am0cif, am0dif, am0hfl, & & am0gdf, am0til, am0hrvfl,am0drmfl,am0drlfl, & & am0sfl, am0tfl, am0cfl, am0dfl, am0efl, & & am0oif, am0sif, & & wind_gen_fmt_flag, cli_gen_fmt_flag ! + + + VARIABLE DEFINITIONS + + + ! am0ifl - flag to run initialization of submodels ! ! values - .true. .false. ! ! - If variable is set to .true. then run ! initialization subroutines. ! ! am0eif - flag to run initialization of EROSION ! submodel ! ! values - .true. .false. ! ! - If variable is set to .true. then run ! initialization subroutines. ! ! am0cif - flag to run initialization of CROP ! submodel at each crop planting ! ! values - .true. .false. ! ! - If variable is set to .true. then run ! initialization subroutines. ! ! am0cgf - flag to run CROP growth if between plant ! and harvest ! ! values - .true. .false. ! ! - If variable is set to .true. then run ! growth subroutines. ! ! am0dif - flag to run initialization of DECOMP ! submodel at the start of simulation and harvest ! ! values - .true. .false. ! ! - If variable is set to .true. then run ! initialization subroutines. ! ! am0hfl - flag to print HYDROlogy output ! ! values - 0, 1, 2, 3, 4,,5 ,6 ,7 ! ! - If variable is set tothe following then print ! a detailed output from HYDROlogy submodel ! ! 0 = no output ! 1 = daily ! 2 = hourly ! 3 = soil temperature ! 4 = daily and hourly ! 5 = daily and soil temperature ! 6 = hourly and soil temperature ! 7 = daily, hourly, and soil temperature ! am0sfl - flag to print SOIL output ! ! values - 0, 1 ! ! - If am0sfl = 1 then print detailed output, ! if am0sfl = 0 then print no output ! am0tfl - flag to print MANAGEMENT (TILLAGE) output ! values - 0, 1 ! - If am0tfl = 1 then print detailed output, ! if am0tfl = 0 then print no output ! am0cfl - flag to print CROP output ! values - 0, 1 ! - If am0cfl = 1 then print detailed output, ! if am0cfl = 0 then print no output ! am0dfl - flag to print DECOMP output ! values - 0, 1, 2, 3 ! - If am0dfl = 1 then print detailed output for above ! ground residue, ! - If am0dfl = 2 then print detailed output for below ! ground residue, ! - If am0dfl = 3 then print detailed output for both ! above and below ground residue, ! - If am0dfl = 0 then print no output ! am0efl - flag to print EROSION output ! values - 0, 1 ! - If am0efl = 1 then print detailed output, ! if am0efl = 0 then print no output ! am0gdf - flag to determine if grid has been calculated ! values - .true., .false. ! - If am0gdf = .true., determine if points are within acct region ! if am0gdf = .false., do not ! am0til - flag to determine if surfce has been updated by management ! values - .true., .false. ! - If am0til = .true., tillage has occurred ! if am0til = .false., not ! am0hrvfl - flag to determine if the harvest operation is killing ! a perennial or annual crop or if there is a harvest ! of a perennial crop but the crop is not killed. Also used ! to indicate leaf removal by defoliation as of 8/23/00. ! values - 0 - perennial crop no kill ! 1 - annual crop which is killed ! 2 - perennial crop which is killed ! 3 - leaves removed by defoliation ! type - integer ! am0drmfl - flag indicating the onset of the dormancy period ! am0drmfl = 0 --> non-dormant period ! am0drmfl = 1 --> dormant period ! ! am0drlfl - flag indicating whether crops growing in a simulation region ! can experience a period of dormancy ! am0drlfl = 0 --> a winter or perennial crop will not ! experience dormancy ! am0drlfl = 1 --> a winter or perennial crop may ! experience dormancy ! ! wind_gen_fmt_flag - flag indicating type of wind_gen daily input file ! wind_gen_fmt_flag = 1 --> original max/min wind_gen file format ! wind_gen_fmt_flag = 2 --> new hourly wind_gen file format ! ! cli_gen_fmt_flag - flag indicating type of cli_gen daily input file ! cli_gen_fmt_flag = 1 --> original cli_gen file format ! cli_gen_fmt_flag = 2 --> new WEPP compatible cli_gen file format ! !-----------------------------------------------------------------------