EffectiveExtinctCoeffs Subroutine

private subroutine EffectiveExtinctCoeffs(EffExtCoeff_beam, EffExtCoeff_dif, mp, nrb, veg_mask, ExtCoeff_beam, ExtCoeff_dif, c1)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: EffExtCoeff_beam(mp,nrb)
real, intent(out) :: EffExtCoeff_dif(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
logical :: veg_mask(mp)
real, intent(in) :: ExtCoeff_beam(mp)
real, intent(in) :: ExtCoeff_dif(mp)
real :: c1(mp,nrb)

Calls

proc~~effectiveextinctcoeffs~~CallsGraph proc~effectiveextinctcoeffs EffectiveExtinctCoeffs proc~effectiveextinctcoeff EffectiveExtinctCoeff proc~effectiveextinctcoeffs->proc~effectiveextinctcoeff

Called by

proc~~effectiveextinctcoeffs~~CalledByGraph proc~effectiveextinctcoeffs EffectiveExtinctCoeffs proc~init_radiation init_radiation proc~init_radiation->proc~effectiveextinctcoeffs proc~cbm cbm proc~cbm->proc~init_radiation 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