Changeset 5618 for LMDZ6/branches/contrails/libf/phylmd/chem_mod_h.f90

Timestamp:

Apr 15, 2025, 11:56:45 AM (8 months ago)

Author:

aborella

Message:

Merge with trunk testing r5597. We have convergence in prod and debug in NPv7.0.1c

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/chem_mod_h.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/chem_mod_h.f90

@@ -1 +1 @@
 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, &
-          n_avogadro, masse_s, masse_so4, rho_water, rho_ice
+           rho_water, rho_ice
 
   INTEGER idms, iso2, iso4, ih2s, idmso, imsa, ih2o2
@@ -8 +12 @@
   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
+  REAL rho_water, rho_ice
   PARAMETER (rho_water = 1000.0)                    !--kg m-3
   PARAMETER (rho_ice = 500.0)                       !--kg m-3