|
character(40), parameter | module_radiation_astronomy::vtagast ='NCEP-Radiation_astronomy v5.2 Jan 2013 ' |
|
real(kind=kind_phys), parameter | module_radiation_astronomy::degrad = 180.0/con_pi |
|
real(kind=kind_phys), parameter | module_radiation_astronomy::tpi = 2.0 * con_pi |
|
real(kind=kind_phys), parameter | module_radiation_astronomy::hpi = 0.5 * con_pi |
|
real(kind=kind_phys), parameter | module_radiation_astronomy::f12 = 12.0 |
|
real(kind=kind_phys), parameter | module_radiation_astronomy::f3600 = 3600.0 |
|
real(kind=kind_phys), parameter | module_radiation_astronomy::czlimt = 0.0001 |
|
real(kind=kind_phys), parameter | module_radiation_astronomy::pid12 = (2.0*asin(1.0))/f12 |
|
real(kind=kind_phys), public | module_radiation_astronomy::solc0 = con_solr |
|
integer | module_radiation_astronomy::isolflg = 10 |
|
character(26) | module_radiation_astronomy::solar_fname = ' ' |
|
real(kind=kind_phys) | module_radiation_astronomy::sollag =0.0 |
|
real(kind=kind_phys) | module_radiation_astronomy::sindec =0.0 |
|
real(kind=kind_phys) | module_radiation_astronomy::cosdec =0.0 |
|
real(kind=kind_phys) | module_radiation_astronomy::anginc =0.0 |
|
real(kind=kind_phys), dimension(12) | module_radiation_astronomy::smon_sav |
|
integer | module_radiation_astronomy::iyr_sav =0 |
|
integer | module_radiation_astronomy::nstp =6 |
|