MODULE chem_mod_h
  IMPLICIT NONE; PRIVATE
  PUBLIC idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
          n_avogadro, masse_s, masse_so4, rho_water, rho_ice

  INTEGER idms, iso2, iso4, ih2s, idmso, imsa, ih2o2
  PARAMETER (idms = 1, iso2 = 2, iso4 = 3)
  PARAMETER (ih2s = 4, idmso = 5, imsa = 6, ih2o2 = 7)

  REAL n_avogadro, masse_s, masse_so4, rho_water, rho_ice
  PARAMETER (n_avogadro = 6.02E23)                  !--molec mol-1
  PARAMETER (masse_s = 32.0)                        !--g mol-1
  PARAMETER (masse_so4 = 96.0)                      !--g mol-1
  PARAMETER (rho_water = 1000.0)                    !--kg m-3
  PARAMETER (rho_ice = 500.0)                       !--kg m-3

END MODULE chem_mod_h