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

Timestamp:

Aug 14, 2025, 9:40:34 AM (3 days ago)

Author:

debatzbr

Message:

Pluto PCM: Allows for haze production with vmr CH4 fix profile.
BBT

File:

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

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

@@ -827 +827 @@
      if (is_master)write(*,*)trim(rname)//&
      "hazconservch4 = ",hazeconservch4
+     if (is_master) write(*,*) "Production of haze with CH4 fix profile?"
+     haze_ch4proffix=.false. ! default value
+     call getin_p("haze_ch4proffix",haze_ch4proffix)
+     if (is_master) write(*,*)" haze_ch4proffix = ",haze_ch4proffix
      if (is_master)write(*,*)trim(rname)//&
      "Production of haze (fast version) ?"