gradstottgrid Subroutine

private pure subroutine gradstottgrid(invR, grads, gradstot)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
real, intent(in), dimension(-ntgrid:) :: invR
real, intent(in), dimension(-ntgrid:, :) :: grads
real, intent(out), dimension(-ntgrid:, :) :: gradstot

Contents

Source Code

gradstottgrid

Source Code

  pure subroutine gradstottgrid (invR, grads, gradstot)
    real, dimension(-ntgrid:), intent (in) :: invR
    real, dimension(-ntgrid:, :), intent (in) :: grads
    real, dimension(-ntgrid:, :), intent (out) :: gradstot
    gradstot(:, 1:2) = grads
    if (use_large_aspect) then
       gradstot(:, 3) = 0.
    else
       gradstot(:, 3) = invR
    end if
  end subroutine gradstottgrid