MODULE nrho_Module
         USE Numeric_Kinds_Module
         SAVE
         INTEGER nrho, nrho_elevls/0/, nrho_boundary/0/
         REAL(Kind=WP_Kind)  Rho_Boundary
         REAL(Kind=WP_Kind)  Rho_Finish
      END MODULE nrho_Module