!*==aa0026.spg processed by SPAG 6.70Rc at 21:09 on 9 Dec 2012 implicit none !*--AA00263 ! !*** Start of declarations rewritten by SPAG ! ! PARAMETER definitions ! integer,parameter :: mfname = 30,mwsta = 30,mloc = 10,mdate = 10 ! !*** End of declarations rewritten by SPAG ! ! beamrise - solar altitude angle at which the upper edge of the sun is visible ! civilrise - solar altitude angle defined as civil twilight ! nautrise - solar altitude angle defined as nautical twilight ! astrorise - solar altitude angle defined as astronomical twilight !$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/p1strlen.inc $ ! ------------------------------------------------------------------ ! file 'p1strlen.inc' ! ! These parameter variables are used to size certain global strings ! at compile time for WERM. They may also be consulted from within ! sections of the WERM code if this file has been included. ! ! ! + + + VARIABLE DECLARATIONS + + + !