Changeset 3400 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Aug 6, 2024, 6:39:29 PM (19 months ago)

Author:

llange

Message:

Mars PCM
Back to the commit
Correction of the computation of the water vapor flux from the subsurface ice when thin frost is at the surface: When the frost was too thin (thickness < tol_frost), the flux from the subsurface ice to the surface/atmosphere was not computed. It is now corrected, assuming that the frost is too thin to prevent exchange between subsurface ice and the atmosphere
cleaning testphys1d (unused comments)
LL, who should be writing his PhD dissertation

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

@@ -207 +207 @@
             endif
         endif
-    !EV profile
-!            IF(atm_wat_profile.eq.2) THEN
-!             DO ilayer=1,16
-!              q(1,ilayer,igcm_h2o_vap)=min(zqsat(ilayer),6e-5)
-!             ENDDO! ilayer=1,16
-!             DO ilayer=17,22
-!              q(1,ilayer,igcm_h2o_vap)=min(zqsat(ilayer),3e-5)
-!             ENDDO! ilayer=17,22
-!             DO ilayer=23,nlayer
-!              q(1,ilayer,igcm_h2o_vap)=0
-!             ENDDO! ilayer=23,nlayer
-!             endif
      endif