MAPL_EQsat Interface

public interface MAPL_EQsat

Called by

interface~~mapl_eqsat~~CalledByGraph interface~mapl_eqsat MAPL_EQsat program~tstqsat tstqsat program~tstqsat->interface~mapl_eqsat

Module Procedures

private recursive function QSAT0(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL32), intent(in) :: TL
real(kind=REAL32), intent(in), optional :: PL
real(kind=REAL32), intent(out), optional :: DQ
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL32)

private function QSAT1(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL32), intent(in) :: TL(:)
real(kind=REAL32), intent(in), optional :: PL(:)
real(kind=REAL32), intent(out), optional :: DQ(:)
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL32), (SIZE(TL,1))

private function QSAT2(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL32), intent(in) :: TL(:,:)
real(kind=REAL32), intent(in), optional :: PL(:,:)
real(kind=REAL32), intent(out), optional :: DQ(:,:)
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL32), (SIZE(TL,1),SIZE(TL,2))

private function QSAT3(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL32), intent(in) :: TL(:,:,:)
real(kind=REAL32), intent(in), optional :: PL(:,:,:)
real(kind=REAL32), intent(out), optional :: DQ(:,:,:)
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL32), (SIZE(TL,1),SIZE(TL,2),SIZE(TL,3))

private recursive function QSATD0(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL64), intent(in) :: TL
real(kind=REAL64), intent(in), optional :: PL
real(kind=REAL64), intent(out), optional :: DQ
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL64)

private function QSATD1(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL64), intent(in) :: TL(:)
real(kind=REAL64), intent(in), optional :: PL(:)
real(kind=REAL64), intent(out), optional :: DQ(:)
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL64), (SIZE(TL,1))

private function QSATD2(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL64), intent(in) :: TL(:,:)
real(kind=REAL64), intent(in), optional :: PL(:,:)
real(kind=REAL64), intent(out), optional :: DQ(:,:)
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL64), (SIZE(TL,1),SIZE(TL,2))

private function QSATD3(TL, PL, DQ, OverIce) result(QS)

Arguments

Type IntentOptional Attributes Name
real(kind=REAL64), intent(in) :: TL(:,:,:)
real(kind=REAL64), intent(in), optional :: PL(:,:,:)
real(kind=REAL64), intent(out), optional :: DQ(:,:,:)
logical, intent(in), optional :: OverIce

Return Value real(kind=REAL64), (SIZE(TL,1),SIZE(TL,2),SIZE(TL,3))