Changeset 2531 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Jun 9, 2021, 9:12:31 AM (4 years ago)

Author:

emillour

Message:

Mars GCM:
Bug (wrong usage of surface pressure) fix in vdifc (bug was introduced in r2515)
EM

File:

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

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

@@ -921 +921 @@
      $        zb(ig,2)*zc(ig,2)) * z1(ig)
 
-             call watersat(1,ztsrf(ig),pplev(1,1),qsat(ig))
+             call watersat(1,ztsrf(ig),pplev(ig,1),qsat(ig))
              old_h2o_vap(ig)=zq(ig,1,igcm_h2o_vap)
              zd(ig,1)=zb(ig,1)*z1(ig)