Retrieve the radial element positions
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(out), | DIMENSION(:) | :: | s_pos |
output array for the element positions of size (nElems+1) |
SUBROUTINE get_sgrid_positions(s_pos) ! MODULES USE MODgvec_MHD3D_vars, ONLY: sgrid ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------! REAL, DIMENSION(:), INTENT(OUT) :: s_pos !! output array for the element positions of size (nElems+1) ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------! ! CODE ------------------------------------------------------------------------------------------------------------------------! s_pos = sgrid%sp END SUBROUTINE get_sgrid_positions