Ignore:
Timestamp:
Aug 3, 2024, 2:56:58 PM (3 months ago)
Author:
abarral
Message:

Put .h into modules

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_chem.f90

    r5159 r5160  
     1MODULE lmdz_chem
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
     4          n_avogadro, masse_s, masse_so4, rho_water, rho_ice
    15
    2 ! $Header$
     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)
    39
    4       INTEGER idms, iso2, iso4, ih2s, idmso, imsa, ih2o2
    5       PARAMETER (idms=1, iso2=2, iso4=3)
    6       PARAMETER (ih2s=4, idmso=5, imsa=6, ih2o2=7)
     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
    716
    8       REAL n_avogadro, masse_s, masse_so4, rho_water, rho_ice
    9       PARAMETER (n_avogadro=6.02E23)                  !--molec mol-1
    10       PARAMETER (masse_s=32.0)                        !--g mol-1
    11       PARAMETER (masse_so4=96.0)                      !--g mol-1
    12       PARAMETER (rho_water=1000.0)                    !--kg m-3
    13       PARAMETER (rho_ice=500.0)                       !--kg m-3
     17END MODULE lmdz_chem
    1418
Note: See TracChangeset for help on using the changeset viewer.