This module sets up astronomy quantities for solar radiation calculations.
|
|
subroutine, public | sol_init (me) |
| This subroutine initializes astronomy process, and set up module constants. More...
|
|
subroutine, public | sol_update (jdate, kyear, deltsw, deltim, lsol_chg, me, slag, sdec, cdec, solcon ) |
| This subroutine computes solar parameters at forecast time. More...
|
|
subroutine | solar (jd, fjd, r1, dlt, alp ) |
| This subroutine computes radius vector, declination and right ascension of sun, and equation of time. More...
|
|
subroutine, public | coszmn (xlon, sinlat, coslat, solhr, IM, me, coszen, coszdg ) |
| This subroutine computes mean cos solar zenith angle over SW calling interval. More...
|
|
subroutine | prtime (jd, fjd, dlt, alp, r1, solc ) |
| This subroutine prints out forecast date, time, and astronomy quantities. More...
|
|
|
character(40), parameter | vtagast ='NCEP-Radiation_astronomy v5.2 Jan 2013 ' |
|
real(kind=kind_phys), parameter | degrad = 180.0/con_pi |
|
real(kind=kind_phys), parameter | tpi = 2.0 * con_pi |
|
real(kind=kind_phys), parameter | hpi = 0.5 * con_pi |
|
real(kind=kind_phys), parameter | f12 = 12.0 |
|
real(kind=kind_phys), parameter | f3600 = 3600.0 |
|
real(kind=kind_phys), parameter | czlimt = 0.0001 |
|
real(kind=kind_phys), parameter | pid12 = con_pi/f12 |
|
real(kind=kind_phys), public | solc0 = con_solr |
|
integer | isolflg = 10 |
|
character(26) | solar_fname = ' ' |
|
real(kind=kind_phys) | sollag =0.0 |
|
real(kind=kind_phys) | sindec =0.0 |
|
real(kind=kind_phys) | cosdec =0.0 |
|
real(kind=kind_phys) | anginc =0.0 |
|
real(kind=kind_phys), dimension(12) | smon_sav |
|
integer | iyr_sav =0 |
|
integer | nstp =6 |
|