set_equilibrium_pointer Subroutine

private subroutine set_equilibrium_pointer(settings)

Selects the submodule based on the specified equilibrium in the parfile. Works on a case-select basis.

Warning

Throws an error if the equilibrium type is not recognised.

Arguments

Type IntentOptional Attributes Name
type(settings_t), intent(in) :: settings