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

Timestamp:

Jun 30, 2022, 10:31:16 AM (2 years ago)

Author:

emillour

Message:

Mars GCM:
Minor bug fix in co2condens, erroneous use of surface geopotential phisfi(),
wheras geoptential pphi() is already the geopotential relative to the surface.
Tests showed that this specific erroneous computation was only done in rare
cases and had overall little impact on the simulations.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/co2condens_mod.F (modified) (2 diffs)

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

@@ -24 +24 @@
      &                      qperemin,masseqmin,
      &                      igcm_co2
-       use surfdat_h, only: emissiv, phisfi
+       use surfdat_h, only: emissiv
        use geometry_mod, only: latitude, ! grid point latitudes (rad)
      &                         longitude_deg, latitude_deg
@@ -400 +400 @@
 
             IF (zfallice(ig,1).gt.0 .and. .not. co2clouds) then
-              zfallheat = zfallice(ig,1) * (pphi(ig,1)- phisfi(ig) +
+              ! potential eneregy release due to the impact of the snowfall
+              ! appendix of forget et al. 1999
+              zfallheat = zfallice(ig,1) * (pphi(ig,1) +
      &                    cpice*(ztcond(ig,1)-ztcondsol(ig)))/latcond
             ELSE