solar()

subroutine module_radiation_astronomy::solar ( integer, intent(in) jd, real (kind=kind_phys), intent(in) fjd, real (kind=kind_phys), intent(in) con_pi, 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

Definition at line 658 of file radiation_astronomy.f.

References cosdec, degrad, sindec, sollag, and tpi.

Referenced by sol_update().

Here is the caller graph for this function: