subroutine module_radiation_astronomy::solar ( integer, intent(in)  jd, real (kind=kind_phys), intent(in)  fjd, real (kind=kind_phys), intent(out)  r1, real (kind=kind_phys), intent(out)  dlt, real (kind=kind_phys), intent(out)  alp  )

private

Parameters

[in]	jd	julian day
[in]	fjd	fraction of the julian day
[out]	r1	earth-sun radius vector
[out]	dlt	declination of sun in radians
[out]	alp	right ascension of sun in radians

solar General Algorithm

References physcons::con_pi.

Referenced by sol_update().