Changeset 2077

Timestamp:

Jan 22, 2019, 1:56:34 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:

• Fix a typo in the Van Leer routine vlz_fi.F in the case of w < 0 (negative vertical velocity).

MV

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/vlz_fi.F (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -2673 +2673 @@
 
 et jthermcalc.F
+
+== 22/01/2019 == MV
+- Fix a typo in the Van Leer routine vlz_fi.F in the case of w < 0 (negative vertical velocity).

trunk/LMDZ.MARS/libf/phymars/vlz_fi.F

@@ -162 +162 @@
              if (m.gt.0) then
                 sigw=(w(ij,l+1)+Mtot)/masse(ij,m)
-                wq(ij,l+1)= (MQtot + (-w(ij,l+1)-Mtot)*
+                wq(ij,l+1)= - (MQtot + (-w(ij,l+1)-Mtot)*
      &          (q(ij,m)-0.5*(1.+sigw)*dzq(ij,m))  )
              else