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

Timestamp:

Nov 3, 2023, 2:36:01 PM (16 months ago)

Author:

llange

Message:

Mars PCM
Introducing qsoil to model H2O adsorption/desorption in the subsurface. For now, I've fixed the number of tracers in the subsurface to three (H2O vap, H2O ice, H2O ads).
The model of adsorption/desorption will follow later.
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
 
       IMPLICIT NONE
@@ -1000 +1001 @@
 c        ----------------------------------------------------------
 
+! Adsorption
+         adsorption_soil = .false.
+         call getin_p("adsorption_soil",adsorption_soil) 
+         if (adsorption_soil .and. (.not. water)) then
+              write(*,*)"Adsorption can be run only if water = True"
+              call abort_physic(modname,
+     &        "Adsorption must be used with water = true",1)
+         endif  
+c        ----------------------------------------------------------
+
 ! THERMOSPHERE