Changeset 4204

Timestamp:

Apr 29, 2026, 9:05:26 AM (8 days ago)

Author:

emillour

Message:

Generic PCM:
Import correction (from Mars PCM, r4183) on computation of Cp for a mixture.
Note that there is still some work to do about Cp which is defined twice
(in pcm_thermodynamics_mod and conc_mod)...
EM

Location:

trunk/LMDZ.GENERIC

Files:

• changelog.txt (modified) (1 diff)
• libf/aeronogeneric/concentrations.F (modified) (1 diff)

trunk/LMDZ.GENERIC/changelog.txt

@@ -2291 +2291 @@
 dyn1d subdirectory and renamed it parameters_kcm1d.F90
 
+== 29/04/2026 == EM
+Import correction (from Mars PCM, r4183) on computation of Cp for a mixture.
+Note that there is still some work to do about Cp which is defined twice
+(in pcm_thermodynamics_mod and conc_mod)...

trunk/LMDZ.GENERIC/libf/aeronogeneric/concentrations.F

@@ -87 +87 @@
             do iq = 1,nq
                ni(iq) = ntot*zq(ig,l,iq)*mmean(ig,l)/mmol(iq)
-               cpnew(ig,l)  = cpnew(ig,l) + ni(iq)*cpi(iq)
+               cpnew(ig,l)  = cpnew(ig,l) + zq(ig,l,iq)*cpi(iq)
                akknew(ig,l) = akknew(ig,l) + ni(iq)*aki(iq)
             end do 
-            cpnew(ig,l)  = cpnew(ig,l)/ntot
             akknew(ig,l) = akknew(ig,l)/ntot
          end do