Changeset 857 for trunk/LMDZ.MARS/libf/phymars/soil_tifeedback.F

Timestamp:

Dec 10, 2012, 11:36:53 PM (12 years ago)

Author:

jbmadeleine

Message:

Mars GCM:
Slightly changed soil_tifeedback.F: the variable that contains the
new thermal inertia is set to inert_h2o_ice where watercaptag=true.

File:

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

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

@@ -58 +58 @@
 c       Calculating the ice cover thickness
         icedepth=icecover(ig,igcm_h2o_ice)/rho_ice
-c       If the ice cover is too thick, the entire column is changed :
-        IF (icedepth.ge.layer(nsoil)) THEN
+c       If the ice cover is too thick or watercaptag=true,
+c         the entire column is changed :
+        IF ((icedepth.ge.layer(nsoil)).or.(watercaptag(ig))) THEN
           DO ik=1,nsoil
                newtherm_i(ig,ik)=inert_h2o_ice