MODULE compute_diagnostics_mod
  IMPLICIT NONE
  SAVE

  INTERFACE

    SUBROUTINE comp_rhodz(flag,ps,rhodz)
      USE prec, ONLY : rstd
      LOGICAL, INTENT(IN) :: flag
      REAL(rstd),INTENT(IN)  :: ps(1)
      REAL(rstd),INTENT(OUT) :: rhodz(1,1)
    END SUBROUTINE comp_rhodz

  END INTERFACE

  PROCEDURE(comp_rhodz), POINTER :: compute_rhodz

END MODULE compute_diagnostics_mod