neumann_gradient_ghost Subroutine

private subroutine neumann_gradient_ghost(state, side, q_wall, q_ghost)

'neumann_gradient' ghost: prescribed-gradient Neumann BC.

ghost = q_wall + (dq/dn) * dx, using the per-side prescribed gradient and mesh spacing.

Arguments

Type	Intent	Optional	Attributes		Name
type(solver_state_t),	intent(in)			::	state
character(len=1),	intent(in)			::	side
real(kind=wp),	intent(in)			::	q_wall(3)
real(kind=wp),	intent(out)			::	q_ghost(3)