Changeset 3641 for trunk/LMDZ.GENERIC/libf/phystd/calc_cpp_mugaz.F90

Timestamp:

Feb 23, 2025, 10:53:43 PM (34 hours ago)

Author:

mturbet

Message:

generic continuum database

File:

• trunk/LMDZ.GENERIC/libf/phystd/calc_cpp_mugaz.F90 (modified) (2 diffs)

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

@@ -45 +45 @@
             elseif(igas.eq.igas_N2)then
                mugaz_c = mugaz_c + 28.01*gfrac(igas)
+            elseif(igas.eq.igas_O2)then
+               mugaz_c = mugaz_c + 31.999*gfrac(igas)
             elseif(igas.eq.igas_H2)then
                mugaz_c = mugaz_c + 2.01*gfrac(igas)
@@ -98 +100 @@
             elseif(igas.eq.igas_N2)then
                cpp_c   = cpp_c   + 1.040*gfrac(igas)*28.01/mugaz_c
+            elseif(igas.eq.igas_O2)then
+               cpp_c   = cpp_c   + 0.918*gfrac(igas)*31.999/mugaz_c
             elseif(igas.eq.igas_H2)then
                cpp_c   = cpp_c   + 14.31*gfrac(igas)*2.01/mugaz_c