CanopyTransmitance Subroutine

private subroutine CanopyTransmitance(CanopyTransmit_beam, CanopyTransmit_dif, mp, nrb, mask, reducedLAIdue2snow, EffExtCoeff_beam, EffExtCoeff_dif)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: CanopyTransmit_beam(mp,nrb)
real, intent(out) :: CanopyTransmit_dif(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
logical, intent(in) :: mask(mp)
real, intent(in) :: reducedLAIdue2snow(mp)
real, intent(in) :: EffExtCoeff_beam(mp,nrb)
real, intent(in) :: EffExtCoeff_dif(mp,nrb)

Called by

proc~~canopytransmitance~~CalledByGraph proc~canopytransmitance CanopyTransmitance proc~albedo Albedo proc~albedo->proc~canopytransmitance proc~cbm cbm proc~cbm->proc~albedo proc~mpidrv_worker~2 mpidrv_worker proc~mpidrv_worker~2->proc~cbm proc~serialdrv serialdrv proc~serialdrv->proc~cbm program~cable_offline_driver cable_offline_driver program~cable_offline_driver->proc~serialdrv