Set the smart defaults for the theta_grid_eik_config_type instance
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(theta_grid_eik_config_type), | intent(inout) | :: | self |
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