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

private

Referenced by radiation().