Changeset 2977

Timestamp:

Jun 6, 2023, 5:14:26 PM (18 months ago)

Author:

llange

Message:

Mars PCM
Change the latent heat when computing the amount of CO2 that condenses
on a slope: a warm air must be cooled off before condensing on the
slope. Adapted from pluton PCM (see Eq.12 from Forget et al., 2017)
LL

File:

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

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

@@ -443 +443 @@
             zcondices(ig,islope)=pcapcal(ig,islope)
      &       *(ztcondsol(ig)-ztsrf(ig,islope)) 
-c     &       /((latcond+cpp*(zt(ig,1)-ztcondsol(ig)))*ptimestep)    
-     &       /(latcond*ptimestep)    
+     &       /((latcond+cpp*(zt(ig,1)-ztcondsol(ig)))*ptimestep)    
      &       - zfallheat
              else