set_smart_defaults_local Subroutine

private subroutine set_smart_defaults_local(self)

Uses

Set the smart defaults for the kt_grids_box_config_type instance

Type Bound

kt_grids_box_config_type

Arguments

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

Contents

Source Code

set_smart_defaults_local

Source Code

  subroutine set_smart_defaults_local(self)
    use constants, only: pi
    use theta_grid, only: shat
    implicit none
    class(kt_grids_box_config_type), intent(in out) :: self
    if (self%is_initialised()) return
    self%jtwist = max(int(2.0*pi*shat + 0.5),1)  ! default jtwist -- MAB
  end subroutine set_smart_defaults_local