Changeset 2705 for trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90

Timestamp:

Jun 21, 2022, 11:05:37 AM (2 years ago)

Author:

aslmd

Message:

Fixed the molecular mass of composites generic clouds

File:

• trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90

@@ -43 +43 @@
             Tref = 1624.0
             Pref =  1.0E5
-            m = 22.9898
+            m = 78.04454 !Na2S
             RLVTT = delta_vapH/(m/1000.)
             metallicity_coeff=0.5*log(10.0)
@@ -79 +79 @@
             Pref = 1.0E5
             metallicity_coeff=1.0*log(10.0)
-            m = 54.9380
+            m = 87.003049
             RLVTT = delta_vapH/(m/1000.)
         else if (trim(specname) .eq. "Zn") then 
@@ -87 +87 @@
             Pref = 1.0E5
             metallicity_coeff=1.0*log(10.0)
-            m = 65.38
+            m = 97.445
             RLVTT = delta_vapH/(m/1000.)
         else