get_graddotgrad Subroutine

private subroutine get_graddotgrad(dpsipdrho, grho)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	dpsipdrho
real,	intent(in),		dimension(-nz:)	::	grho