subroutine, public module_radiation_astronomy::sol_init | ( | integer, intent(in) | me, |
integer, intent(in) | isolar, | ||
character(len=26), intent(in) | solar_file, | ||
real(kind=kind_phys), intent(in) | con_solr, | ||
real(kind=kind_phys), intent(in) | con_solr_old, | ||
real(kind=kind_phys), intent(in) | con_pi ) |