set_smart_defaults_local Subroutine

private subroutine set_smart_defaults_local(self)

Set the smart defaults for the theta_grid_eik_config_type instance

Type Bound

theta_grid_eik_config_type

Arguments

Type IntentOptional Attributes Name
class(theta_grid_eik_config_type), intent(inout) :: self

Contents


Source Code

  subroutine set_smart_defaults_local(self)
    use theta_grid_params, only: shat_in => shat, alpmhd_in => alpmhd, betaprim_in => betaprim
    implicit none
    class(theta_grid_eik_config_type), intent(in out) :: self
    if (self%is_initialised()) return
    self%alpha_input = alpmhd_in
    self%s_hat_input = shat_in
    self%beta_prime_input = betaprim_in
  end subroutine set_smart_defaults_local