Changeset 3922 for trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

Timestamp:

Oct 3, 2025, 4:20:48 PM (8 weeks ago)

Author:

mmaurice

Message:

Generic PCM:

Add time-dependent dust scenario for (present-day) Mars from Montmessin
et al., 2004.

MM

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -723 +723 @@
      call getin_p("dusttau",dusttau)
      if (is_master) write(*,*)trim(rname)//": dusttau = ",dusttau
+     
+     if (is_master) write(*,*)trim(rname)//": Use time-dependent dust ?:"
+     timedepdust=.false. ! default value
+     call getin_p("timedepdust",timedepdust)
+     if (is_master) write(*,*)trim(rname)//": timedepdust = ",timedepdust
 
      if (is_master) write(*,*)trim(rname)//": Radiatively active CO2 aerosols?"