solar Subroutine

  1. shortwave_radiation.f90
  2. shortwave_radiation
  3. solar

private subroutine solar(tyear, csol, topsr, coa, sia)

Arguments

Type IntentOptional AttributesName
real(kind=p), intent(in) :: tyear

time as fraction of year (0-1, 0 = 1jan.h00)
real(kind=p), intent(in) :: csol

The solar constant [W/m^2]
real(kind=p), intent(out) :: topsr(il)

Daily-average insolation at the top of the atmosphere as a function of latitude
real(kind=p), intent(in) :: coa(il)

cosine(latitude)
real(kind=p), intent(in) :: sia(il)

sine(latitude)

Called by

proc~~solar~~CalledByGraph proc~solar solar proc~get_zonal_average_fields get_zonal_average_fields proc~get_zonal_average_fields->proc~solar proc~set_forcing set_forcing proc~set_forcing->proc~get_zonal_average_fields proc~do_single_step do_single_step proc~do_single_step->proc~set_forcing proc~initialize_state initialize_state proc~initialize_state->proc~set_forcing proc~init init proc~init->proc~initialize_state proc~step~2 step proc~step~2->proc~do_single_step

Contents

None