source: LMDZ6/trunk/libf/phylmd/chem_mod_h.f90 @ 5447

Last change on this file since 5447 was 5292, checked in by abarral, 8 weeks ago

Move academic.h chem.h chem_spla.h to module

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 711 bytes
Line 
1MODULE chem_mod_h
2  IMPLICIT NONE; PRIVATE
3  PUBLIC idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
4          n_avogadro, masse_s, masse_so4, rho_water, rho_ice
5
6  INTEGER idms, iso2, iso4, ih2s, idmso, imsa, ih2o2
7  PARAMETER (idms = 1, iso2 = 2, iso4 = 3)
8  PARAMETER (ih2s = 4, idmso = 5, imsa = 6, ih2o2 = 7)
9
10  REAL n_avogadro, masse_s, masse_so4, rho_water, rho_ice
11  PARAMETER (n_avogadro = 6.02E23)                  !--molec mol-1
12  PARAMETER (masse_s = 32.0)                        !--g mol-1
13  PARAMETER (masse_so4 = 96.0)                      !--g mol-1
14  PARAMETER (rho_water = 1000.0)                    !--kg m-3
15  PARAMETER (rho_ice = 500.0)                       !--kg m-3
16
17END MODULE chem_mod_h
18
Note: See TracBrowser for help on using the repository browser.