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

private

Parameters

[in]	jd	forecast julian day
[in]	fjd	forecast fraction of julian day
[in]	dlt	declination angle of sun in radians
[in]	alp	right ascension of sun in radians
[in]	r1	earth-sun radius vector in meter
[in]	solc	solar constant in \(w/m^2\)

prtime General Algorithm

References degrad, f12, hpi, and sollag.

Referenced by sol_update().