MODULE compute_mod
  IMPLICIT NONE
  SAVE

  INTERFACE

    SUBROUTINE comp_pvort_only(u,rhodz,qu,qv, hv_)
      USE prec, ONLY : rstd
      REAL(rstd),INTENT(IN)  :: u(1,1)
      REAL(rstd),INTENT(INOUT) :: rhodz(1,1)
      REAL(rstd),INTENT(OUT) :: qu(1,1)
      REAL(rstd),INTENT(OUT) :: qv(1,1)
      REAL(rstd),INTENT(OUT) :: hv_(1,1)
    END SUBROUTINE comp_pvort_only

  END INTERFACE

  PROCEDURE(comp_pvort_only), POINTER :: compute_pvort_only => NULL()

END MODULE compute_mod