|
| 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 |
| |