surrad()

subroutine, private module_sf_noahmplsm::surrad ( type (noahmp_parameters), intent(in)  parameters, real (kind=kind_phys), intent(in)  mpe, real (kind=kind_phys), intent(in)  fsun, real (kind=kind_phys), intent(in)  fsha, real (kind=kind_phys), intent(in)  elai, real (kind=kind_phys), intent(in)  vai, real (kind=kind_phys), intent(in)  laisun, real (kind=kind_phys), intent(in)  laisha, real (kind=kind_phys), dimension(1:2), intent(in)  solad, real (kind=kind_phys), dimension(1:2), intent(in)  solai, real (kind=kind_phys), dimension(1:2), intent(in)  fabd, real (kind=kind_phys), dimension(1:2), intent(in)  fabi, real (kind=kind_phys), dimension(1:2), intent(in)  ftdd, real (kind=kind_phys), dimension(1:2), intent(in)  ftid, real (kind=kind_phys), dimension(1:2), intent(in)  ftii, real (kind=kind_phys), dimension(1:2), intent(in)  albgrd, real (kind=kind_phys), dimension(1:2), intent(in)  albgri, real (kind=kind_phys), dimension(1:2), intent(in)  albd, real (kind=kind_phys), dimension(1:2), intent(in)  albi, integer, intent(in)  iloc, integer, intent(in)  jloc, real (kind=kind_phys), intent(out)  parsun, real (kind=kind_phys), intent(out)  parsha, real (kind=kind_phys), intent(out)  sav, real (kind=kind_phys), intent(out)  sag, real (kind=kind_phys), intent(out)  fsa, real (kind=kind_phys), intent(out)  fsr, real (kind=kind_phys), dimension(1:2), intent(in)  frevi, real (kind=kind_phys), dimension(1:2), intent(in)  frevd, real (kind=kind_phys), dimension(1:2), intent(in)  fregd, real (kind=kind_phys), dimension(1:2), intent(in)  fregi, real (kind=kind_phys), intent(out)  fsrv, real (kind=kind_phys), intent(out)  fsrg  )

private

Referenced by radiation().

Here is the caller graph for this function: