get_mn_max Subroutine

public subroutine get_mn_max(var, m_max, n_max)

Arguments

Type IntentOptional Attributes Name
character(len=2), intent(in) :: var

selection string: which variable to evaluate
integer, intent(out) :: m_max

maximum number of poloidal, toroidal modes
integer, intent(out) :: n_max

maximum number of poloidal, toroidal modes

Calls

proc~~get_mn_max~~CallsGraph proc~get_mn_max get_mn_max proc~select_base select_base proc~get_mn_max->proc~select_base

Source Code

SUBROUTINE get_mn_max(var, m_max, n_max)
  ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------!
  CHARACTER(LEN=2), INTENT(IN) :: var   !! selection string: which variable to evaluate
  INTEGER, INTENT(OUT) :: m_max, n_max  !! maximum number of poloidal, toroidal modes
  ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------!
  CLASS(t_base), POINTER :: base        !! pointer to the base object (X1, X2, LA)
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  CALL select_base(var, base)
  m_max = base%f%mn_max(1)
  n_max = base%f%mn_max(2)
END SUBROUTINE get_mn_max