get_gradrho Subroutine

private subroutine get_gradrho(dpsipdrho, grho)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dpsipdrho
real, intent(out), dimension(-nz:) :: grho