Changeset 2788 for trunk/LMDZ.VENUS/libf

Timestamp:

Aug 31, 2022, 10:02:24 AM (2 years ago)

Author:

slebonnois

Message:

SL: bug correction in physiq (linked to mean molecular mass)

File:

• trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

@@ -607 +607 @@
        do ig=1,klon
          do j=1,klev
-            rnew(ig,j)=R
+            rnew(ig,j)=RD
             cpnew(ig,j)=cpdet(t(ig,j))
             mmean(ig,j)=RMD
             akknew(ig,j)=1.e-4
-            rho(ig,j)=pplay(ig,j)*mmean(ig,j)*1e-3/(rnew(ig,j)*t(ig,j))
+            rho(ig,j)=pplay(ig,j)/(rnew(ig,j)*t(ig,j))
           enddo