EffectiveExtinctCoeff Subroutine

private subroutine EffectiveExtinctCoeff(Eff_ExtCoeff, mp, ExtCoeff, c1, mask)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: Eff_ExtCoeff(mp,2)
integer, intent(in) :: mp
real, intent(in) :: ExtCoeff(mp)
real, intent(in) :: c1(mp,2)
logical, intent(in), optional :: mask(mp)

Called by

proc~~effectiveextinctcoeff~~CalledByGraph proc~effectiveextinctcoeff EffectiveExtinctCoeff proc~effectiveextinctcoeffs EffectiveExtinctCoeffs proc~effectiveextinctcoeffs->proc~effectiveextinctcoeff 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