Changeset 3126 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

Nov 15, 2023, 3:13:25 PM (15 months ago)

Author:

llange

Message:

Mars PCM

• Update in soilwater: adding the possibility to run without adsorption, but with the possibility to run with seasonal frost forming in the subsurface
• THe choice of the isotherm for adsorption can be now done by setting the integer choice_ads in the callphys.def choice_ads = 1 adsorption rate is computed with the H2O thermal speed; choice_ads = 2 adsorption rate is computed based on exeperimental resutls, choice_ads =3 no adsorption

LL

File:

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

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

@@ -40 +40 @@
      &                           lag_layer 
       use microphys_h, only: mteta
-      use comsoil_h, only: adsorption_soil
+      use comsoil_h, only: adsorption_soil, choice_ads
 
       IMPLICIT NONE
@@ -1017 +1017 @@
      &        "Adsorption must be used with water = true",1)
          endif  
+
+         if(adsorption_soil) choice_ads = 1
+         call getin_p("choice_ads",choice_ads) 
+           
 c        ----------------------------------------------------------