inner_radius_check Function

public function inner_radius_check(nrin, nrout, radi)

Check positive value of the innermost radius. If the innermost radius is negative, the element number located at the innermost positive radius is returned.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nrin

A given element of the innermost radius

integer, intent(in) :: nrout

A given element of the outermost radius

double precision, intent(in) :: radi(nrin:nrout)

Original radial grids

Return Value integer