Retrieve the radial element positions
FUNCTION get_sgrid_nelems() RESULT(nelems) ! MODULES USE MODgvec_MHD3D_vars, ONLY: sgrid ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------! INTEGER :: nelems ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------! ! CODE ------------------------------------------------------------------------------------------------------------------------! nelems = sgrid%nElems END FUNCTION get_sgrid_nelems