Changeset 3652 for trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

Timestamp:

Feb 26, 2025, 8:51:12 PM (4 months ago)

Author:

tbertrand

Message:

Pluto : for fast (nogcm) option only : adding possibility to run the CH4 cycle without any formation of CH4 frost (sublimation/condensation active over perenne reservoirs only)
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

@@ -599 +599 @@
      if (is_master)write(*,*)trim(rname)//&
       " condmetsurf = ",condmetsurf
+     if (is_master)write(*,*)trim(rname)//&
+      "call no CH4 frost formation?"
+     no_ch4frost=.false. ! default value
+     call getin_p("no_ch4frost",no_ch4frost)
+     if (is_master)write(*,*)trim(rname)//&
+      "no_ch4frost = ",no_ch4frost
 
      if (is_master)write(*,*)trim(rname)//&