!$Author$ !$Date$ !$Revision$ !$HeadURL$ ! ------------------------------------------------------------------ ! file 'p1werm.inc' ! These parameter variables are used to size certain global arrays ! at compile time for WERM. They may also be consulted from within ! sections of the WERM code if this file has been included. integer mnar integer mnarpt integer mnbr integer mnbpt ! integer mncz integer mnspt integer mnsrpt integer mnsub integer mnsz integer mntime integer mnbpls integer mndk integer mngdpt ! integer mnrbc integer mnhhrs integer mnryr integer mnmon integer mnopdat integer mndayr ! + + + VARIABLE DECLARATIONS + + + parameter (mnar = 4) parameter (mnarpt = 2) parameter (mnbr = 500) !increased from 4 for standalone erosion use parameter (mnbpt = 2) ! parameter (mncz = 5) parameter (mnspt = 2) parameter (mnsrpt = 2) parameter (mnsub = 14) parameter (mnsz = 100) parameter (mntime = 1440) parameter (mnbpls = 5) ! present decomp output maxes at 30 (see openfils.for, file.inc, FAF) parameter (mndk = 5) parameter (mngdpt = 501) !increased from 60 for standalone erosion testing ! parameter (mnrbc = 5) parameter (mnhhrs = 24) parameter (mnryr = 16) parameter (mnmon = 13) parameter (mnopdat = 32) parameter (mndayr = 367) ! + + + VARIABLE DEFINITIONS + + + ! mnar - Maximum number of accounting regions ! range values min max ! ------------ --------- --------- ! fixed 1 memory dependent ! typical 1 10 ! ------------ --------- --------- ! ! - The maximum number of accounting regions to be handled ! by any compiled version of WERM is specified by this ! parameter variable. ! mnarpt - Maximum number of accounting region points ! ! range values min max ! ------------ --------- --------- ! fixed 2 ? ! typical 2 2 ! ------------ --------- --------- ! - The number of accounting region points to be ! handled by any compiled version of WERM is specified ! by this parameter variable. ! mnbr - Maximum number of barriers within subregions ! range values min max ! ------------ --------- --------- ! fixed 1 memory dependent ! typical 1 10 ! ------------ --------- --------- ! - The maximum number of barriers within subregions to be ! handled by any compiled version of WERM is specified ! by this parameter variable. ! mnbpt - Maximum number of barrier points ! range values min max ! ------------ --------- --------- ! fixed 2 ? ! typical 2 2 ! ------------ --------- --------- ! - The number of points which designate a barrier ! shape and location within a subregion. ! mncz - Maximum number of crop height segments ! range values min max ! ------------ --------- --------- ! fixed 1 memory dependent ! typical 5 5 ! ------------ --------- --------- ! - The number of crop height segments to be handled by any ! compiled version of WERM is specified by this parameter ! variable. (Probably should not be modified since some ! crop parameters assume there will be 5 crop height ! segments). ! mnspt - Maximum number of simulation region points ! range values min max ! ------------ --------- --------- ! fixed 2 ? ! typical 2 2 ! ------------ --------- --------- ! - The number of simulation region points to be ! handled by any compiled version of WERM is specified ! by this parameter variable. ! mnsrpt - Maximum number of subregion points ! range values min max ! ------------ --------- --------- ! fixed 2 ? ! typical 2 2 ! ------------ --------- --------- ! - The number of subregion points to be handled ! by any compiled version of WERM is specified ! by this parameter variable. ! mnsub - Maximum number of subregions ! range values min max ! ------------ --------- --------- ! fixed 1 memory dependent ! typical 1 10 ! ------------ --------- --------- ! - The maximum number of subregions to be handled by any ! compiled version of WERM is specified by this parameter ! variable. ! mnsz - Maximum number of soil layers ! range values min max ! ------------ --------- --------- ! fixed 1 memory dependent ! typical 1 100 ! ------------ --------- --------- ! - The maximum number of soil layers to be handled by any ! compiled version of WERM is specified by this parameter ! variable. ! mntime - Maximum number of timesteps per day ! range values min max ! ------------ --------- --------- ! fixed 1 1440 ! typical 24 24 ! ------------ --------- --------- ! - The number of time steps to be handled by ! any compiled version of WERM is specified ! by this parameter variable. ! mnbpls - Maximum number of biomass pools ! range values min max ! ------------ --------- --------- ! fixed 1 ? ! typical 1 ? ! ------------ --------- --------- ! - The maximum number of biomass pools for each subregion ! mndk - maximum number of decay coefficients (st,fl,bg,rt,stem no) ! range values min max ! ------------ --------- --------- ! fixed 1 3 ! typical 1 3 ! ------------ --------- --------- ! - The number of biomass decay coefficients for each subregion ! (standing mass, flat mass, buried mass, root mass, & stem_no) ! mngdpt - Maximum number of grid points in a given direction. ! range values min max ! ------------ --------- --------- ! fixed 1 30 ! typical ? 30 ! ------------ --------- --------- ! - The maximum number of grid points in a given direction ! mnrbc - The number of residue burial classes ! mnryr - Maximum number of rotation years in a management file. ! range values min max ! ------------ --------- --------- ! fixed 1 16 ! typical 2 5 ! ------------ --------- --------- ! - The maximum number of rotation years in a management file. ! The sixteenth year is used to store the monthly output ! regardless of rotation year. ! mnmon - Maximum number of months in an output file. ! range values min max ! ------------ --------- --------- ! fixed 1 13 ! typical 1 13 ! ------------ --------- --------- ! - The maximum number of months in an output file. ! The thirteenth month is used to store the annual output ! for the rotation year. ! mnopdat- Maximum number of operation dates in an output file. ! range values min max ! ------------ --------- --------- ! fixed 1 32 ! typical 1 32 ! ------------ --------- --------- ! - The maximum number of operation dates per month in an ! output file. ! The thirtysecond day is used to store the annual output ! for the current rotation year. ! mndayr- Maximum number of days read from cligen, wingen files at one time, 367 ! ------------------------------------------------------------------