get_dcrossdr Subroutine

private subroutine get_dcrossdr(dpsipdrho, dIdrho, grho)

Arguments

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