Changeset 2593 for trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F

Timestamp:

Dec 10, 2021, 4:27:25 PM (3 years ago)

Author:

mvals

Message:

Mars GCM:
hdo_surfex_mod.F, vdifc_mod.F: addings to account for the effect of kinetics in the fractionation by condensation of HDO at the surface
MV

File:

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

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

@@ -1027 +1027 @@
 
             CALL hdo_surfex(ngrid,nlay,nq,ptimestep,
-     &                      zt,zq,pqsurf,
-     &                      old_h2o_vap,pdqsdif,dwatercap_dif,
+     &                      zt,pplay,zq,pqsurf,
+     &                      old_h2o_vap,qsat,pdqsdif,dwatercap_dif,
      &                      hdoflux)
             DO ig=1,ngrid