Searched refs:rhsg (Results 1 – 1 of 1) sorted by relevance
593 subroutine ramg_PPErhs(rhsp,rhsg,diag, argument601 real(kind=8),intent(in),dimension(nshg,4) :: rhsg local618 t2 = rhsg(:,1:3)619 t1 = rhsg(:,4:4)