exner_function_of_kappa_p0_p Function

private pure elemental function exner_function_of_kappa_p0_p(constant_kappa, constant_p0, p) result(pi)

Uses

  • proc~~exner_function_of_kappa_p0_p~~UsesGraph proc~exner_function_of_kappa_p0_p exner_function_of_kappa_p0_p iso_fortran_env iso_fortran_env proc~exner_function_of_kappa_p0_p->iso_fortran_env

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

Arguments

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

Return Value real(kind=real64)


Called by

proc~~exner_function_of_kappa_p0_p~~CalledByGraph proc~exner_function_of_kappa_p0_p exner_function_of_kappa_p0_p interface~exner_function exner_function interface~exner_function->proc~exner_function_of_kappa_p0_p none~set_physics_state_external set_physics_state_external none~set_physics_state_external->interface~exner_function proc~dynamics_to_physics_coupling dynamics_to_physics_coupling proc~dynamics_to_physics_coupling->none~set_physics_state_external interface~dynamics_to_physics_coupling dynamics_to_physics_coupling interface~dynamics_to_physics_coupling->proc~dynamics_to_physics_coupling proc~stepon_timestep_init stepon_timestep_init proc~stepon_timestep_init->interface~dynamics_to_physics_coupling

Source Code

    pure elemental function exner_function_of_kappa_p0_p(constant_kappa, constant_p0, p) result(pi)
        use, intrinsic :: iso_fortran_env, only: real64

        real(real64), intent(in) :: constant_kappa, constant_p0, p
        real(real64) :: pi

        pi = (p / constant_p0) ** constant_kappa
    end function exner_function_of_kappa_p0_p