exner_function Function

public pure elemental function exner_function(constant_cpd, constant_p0, constant_rd, p) result(pi)

Uses

  • proc~~exner_function~~UsesGraph proc~exner_function exner_function iso_fortran_env iso_fortran_env proc~exner_function->iso_fortran_env

Compute the Exner function pi from the pressure p. Essentially, .

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: constant_cpd
real(kind=real64), intent(in) :: constant_p0
real(kind=real64), intent(in) :: constant_rd
real(kind=real64), intent(in) :: p

Return Value real(kind=real64)


Source Code

    pure elemental function exner_function(constant_cpd, constant_p0, constant_rd, p) result(pi)
        use, intrinsic :: iso_fortran_env, only: real64

        real(real64), intent(in) :: constant_cpd, constant_p0, constant_rd, p
        real(real64) :: pi

        pi = (p / constant_p0) ** (constant_rd / constant_cpd)
    end function exner_function