!*==aa0027.spg processed by SPAG 6.70Rc at 21:09 on 9 Dec 2012 implicit none !*--AA00273 ! !*** Start of declarations rewritten by SPAG ! ! PARAMETER definitions ! real,parameter :: mtomm = 1000.0,mmtom = 0.001 integer,parameter :: hrday = 24 real,parameter :: hrtosec = 3600.0,daytosec = 86400.0, & & degtorad = 0.017453293,radtodeg = 57.2957795, & & hatom2 = 10000.0,mgtokg = 0.000001, & & fractopercent = 100.0,percenttofrac = 0.01 ! !*** End of declarations rewritten by SPAG ! ! ! + + + VARIABLE DEFINITIONS + + + ! ! mfname - Maximum length of filenames ! ! range values min max ! ------------ --------- --------- ! fixed 1 OS dependent ! typical 15 15 ! ------------ --------- --------- ! ! - The length of character strings containing filenames ! to be handled by any compiled version of WERM is ! specified by this parameter variable. ! ! mwsta - Maximum length of weather station names ! ! range values min max ! ------------ --------- --------- ! fixed 1 OS dependent ! typical 30 30 ! ------------ --------- --------- ! ! - The length of character strings containing weather ! station names to be handled by any compiled version ! of WERM is specified by this parameter variable. ! ! mloc - Maximum length of weather station location strings ! ! range values min max ! ------------ --------- --------- ! fixed 1 OS dependent ! typical 10 10 ! ------------ --------- --------- ! ! - The length of character strings containing the ! location of weather station names to be handled ! by any compiled version of WERM is specified ! by this parameter variable. ! ! mdate - Maximum length of date strings ! ! range values min max ! ------------ --------- --------- ! fixed 8 OS dependent ! typical 10 10 ! ------------ --------- --------- ! ! - The length of character strings containing dates ! to be handled by any compiled version of WERM is ! specified by this parameter variable. ! ! ------------------------------------------------------------------ !$Author: joelevin $ !$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $ !$Revision: 11724 $ !$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/p1unconv.inc $ ! ------------------------------------------------------------------ ! file 'p1unconv.inc' ! These parameter variables are used for unit conversion values ! within WERM to make the coding more readable and maintainable. ! Generally, only common unit conversions likely to be used ! throughout the WERM coding should reside here. Conversion units ! used locally in the WERM coding should be defined in separate ! parameter include files. ! These parameter values may be consulted from within any sections ! of the WERM code if this file has been included. ! + + + VARIABLE DECLARATIONS + + + !pi/180 !180/pi ! hectare to square meters