chem_mod_h.f90 Source File


Files dependent on this one

sourcefile~~chem_mod_h.f90~~AfferentGraph sourcefile~chem_mod_h.f90 chem_mod_h.f90 sourcefile~lsc_scav.f90 lsc_scav.f90 sourcefile~lsc_scav.f90->sourcefile~chem_mod_h.f90 sourcefile~read_newemissions.f90~2 read_newemissions.f90 sourcefile~read_newemissions.f90~2->sourcefile~chem_mod_h.f90 sourcefile~cvltr_spl.f90 cvltr_spl.f90 sourcefile~cvltr_spl.f90->sourcefile~chem_mod_h.f90 sourcefile~trconvect.f90~2 trconvect.f90 sourcefile~trconvect.f90~2->sourcefile~chem_mod_h.f90 sourcefile~incloud_scav_lsc.f90 incloud_scav_lsc.f90 sourcefile~incloud_scav_lsc.f90->sourcefile~chem_mod_h.f90 sourcefile~sediment_mod.f90~2 sediment_mod.f90 sourcefile~sediment_mod.f90~2->sourcefile~chem_mod_h.f90 sourcefile~lsc_scav_orig.f90~2 lsc_scav_orig.f90 sourcefile~lsc_scav_orig.f90~2->sourcefile~chem_mod_h.f90 sourcefile~inscav_spl.f90 inscav_spl.f90 sourcefile~inscav_spl.f90->sourcefile~chem_mod_h.f90 sourcefile~incloud_scav.f90 incloud_scav.f90 sourcefile~incloud_scav.f90->sourcefile~chem_mod_h.f90 sourcefile~finemission.f90~2 finemission.f90 sourcefile~finemission.f90~2->sourcefile~chem_mod_h.f90 sourcefile~aeropt_spl.f90 aeropt_spl.f90 sourcefile~aeropt_spl.f90->sourcefile~chem_mod_h.f90 sourcefile~cvltr_spl.f90~2 cvltr_spl.f90 sourcefile~cvltr_spl.f90~2->sourcefile~chem_mod_h.f90 sourcefile~lsc_scav_orig.f90 lsc_scav_orig.f90 sourcefile~lsc_scav_orig.f90->sourcefile~chem_mod_h.f90 sourcefile~phytracr_spl_mod.f90~2 phytracr_spl_mod.F90 sourcefile~phytracr_spl_mod.f90~2->sourcefile~chem_mod_h.f90 sourcefile~coarsemission.f90 coarsemission.f90 sourcefile~coarsemission.f90->sourcefile~chem_mod_h.f90 sourcefile~trconvect.f90 trconvect.f90 sourcefile~trconvect.f90->sourcefile~chem_mod_h.f90 sourcefile~inscav_spl.f90~2 inscav_spl.f90 sourcefile~inscav_spl.f90~2->sourcefile~chem_mod_h.f90 sourcefile~incloud_scav_lsc.f90~2 incloud_scav_lsc.f90 sourcefile~incloud_scav_lsc.f90~2->sourcefile~chem_mod_h.f90 sourcefile~deposition.f90~2 deposition.f90 sourcefile~deposition.f90~2->sourcefile~chem_mod_h.f90 sourcefile~read_newemissions.f90 read_newemissions.f90 sourcefile~read_newemissions.f90->sourcefile~chem_mod_h.f90 sourcefile~sediment_mod.f90 sediment_mod.f90 sourcefile~sediment_mod.f90->sourcefile~chem_mod_h.f90 sourcefile~lsc_scav_spl.f90 lsc_scav_spl.f90 sourcefile~lsc_scav_spl.f90->sourcefile~chem_mod_h.f90 sourcefile~bcscav_spl.f90~2 bcscav_spl.f90 sourcefile~bcscav_spl.f90~2->sourcefile~chem_mod_h.f90 sourcefile~seasalt.f90 seasalt.f90 sourcefile~seasalt.f90->sourcefile~chem_mod_h.f90 sourcefile~blcloud_scav.f90~2 blcloud_scav.f90 sourcefile~blcloud_scav.f90~2->sourcefile~chem_mod_h.f90 sourcefile~incloud_scav.f90~2 incloud_scav.f90 sourcefile~incloud_scav.f90~2->sourcefile~chem_mod_h.f90 sourcefile~blcloud_scav_lsc.f90 blcloud_scav_lsc.f90 sourcefile~blcloud_scav_lsc.f90->sourcefile~chem_mod_h.f90 sourcefile~finemission.f90 finemission.f90 sourcefile~finemission.f90->sourcefile~chem_mod_h.f90 sourcefile~deposition.f90 deposition.f90 sourcefile~deposition.f90->sourcefile~chem_mod_h.f90 sourcefile~lsc_scav_spl.f90~2 lsc_scav_spl.f90 sourcefile~lsc_scav_spl.f90~2->sourcefile~chem_mod_h.f90 sourcefile~blcloud_scav_lsc.f90~2 blcloud_scav_lsc.f90 sourcefile~blcloud_scav_lsc.f90~2->sourcefile~chem_mod_h.f90 sourcefile~lsc_scav.f90~2 lsc_scav.f90 sourcefile~lsc_scav.f90~2->sourcefile~chem_mod_h.f90 sourcefile~seasalt.f90~2 seasalt.f90 sourcefile~seasalt.f90~2->sourcefile~chem_mod_h.f90 sourcefile~phytracr_spl_mod.f90 phytracr_spl_mod.F90 sourcefile~phytracr_spl_mod.f90->sourcefile~chem_mod_h.f90 sourcefile~coarsemission.f90~2 coarsemission.f90 sourcefile~coarsemission.f90~2->sourcefile~chem_mod_h.f90 sourcefile~aeropt_spl.f90~2 aeropt_spl.f90 sourcefile~aeropt_spl.f90~2->sourcefile~chem_mod_h.f90 sourcefile~bcscav_spl.f90 bcscav_spl.f90 sourcefile~bcscav_spl.f90->sourcefile~chem_mod_h.f90 sourcefile~blcloud_scav.f90 blcloud_scav.f90 sourcefile~blcloud_scav.f90->sourcefile~chem_mod_h.f90 sourcefile~physiq_mod.f90 physiq_mod.F90 sourcefile~physiq_mod.f90->sourcefile~phytracr_spl_mod.f90 sourcefile~phys_output_write_spl_mod.f90 phys_output_write_spl_mod.F90 sourcefile~physiq_mod.f90->sourcefile~phys_output_write_spl_mod.f90 sourcefile~phys_output_write_spl_mod.f90~2 phys_output_write_spl_mod.F90 sourcefile~phys_output_write_spl_mod.f90~2->sourcefile~phytracr_spl_mod.f90 sourcefile~phys_output_write_spl_mod.f90->sourcefile~phytracr_spl_mod.f90 sourcefile~physiq_mod.f90~2 physiq_mod.F90 sourcefile~physiq_mod.f90~2->sourcefile~phytracr_spl_mod.f90 sourcefile~physiq_mod.f90~2->sourcefile~phys_output_write_spl_mod.f90 sourcefile~old_lmdz1d.f90 old_lmdz1d.f90 sourcefile~old_lmdz1d.f90->sourcefile~physiq_mod.f90 sourcefile~scm.f90 scm.f90 sourcefile~scm.f90->sourcefile~physiq_mod.f90 sourcefile~callphysiq_mod.f90 callphysiq_mod.f90 sourcefile~callphysiq_mod.f90->sourcefile~physiq_mod.f90 sourcefile~callphysiq_mod.f90~2 callphysiq_mod.f90 sourcefile~callphysiq_mod.f90~2->sourcefile~physiq_mod.f90 sourcefile~calfis.f90 calfis.f90 sourcefile~calfis.f90->sourcefile~callphysiq_mod.f90

Contents

Source Code


Source Code

MODULE chem_mod_h

! AS 20250220 : masse_s MOVED TO Dust/lmdz_spla_ini.f90 
!               n_avogadro, masse_so4 REMOVED BECAUSE NOT USED      

  IMPLICIT NONE; PRIVATE
  PUBLIC idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
           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 rho_water, rho_ice
  PARAMETER (rho_water = 1000.0)                    !--kg m-3
  PARAMETER (rho_ice = 500.0)                       !--kg m-3

END MODULE chem_mod_h