eval_gravitation_2d Subroutine

private subroutine eval_gravitation_2d(rhs, source, state, constants)

Type	Intent		Name
real(kind=rk),	intent(inout)	::	rhs(:,:)	The Right Hand side to be updated
real(kind=rk),	intent(in)	::	source(:,:)	The source data to be used
real(kind=rk),	intent(in)	::	state(:,:)	The state in the modal form
real(kind=rk),	intent(in)	::	constants(:)	the constants required for the evaluation of source