Changeset 2077 for trunk/LMDZ.MARS/libf/phymars/vlz_fi.F

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

File:

• trunk/LMDZ.MARS/libf/phymars/vlz_fi.F (modified) (1 diff)

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