Changeset 4030 for trunk/LMDZ.MARS/libf/phymars/aeropacity_mod.F

Timestamp:

Jan 21, 2026, 5:22:25 PM (28 hours ago)

Author:

emillour

Message:

Mars PCM:

• add possibility to read MY37 dust scenario and the possibility to read in a scenario provided in IR extinction opacity (at 9.3um) identified as such by being "cdodext" in the input file (whereas "cdod" is for IR absorption).
• add possibility to load EUV daily E10.7 input for MY37.

EM

File:

• trunk/LMDZ.MARS/libf/phymars/aeropacity_mod.F (modified) (1 diff)

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

@@ -314 +314 @@
         call read_dust_scenario(ngrid,nlayer,zday,pplev,
      &                          IRtoVIScoef,tau_pref_scenario)
-      ELSE IF ((iaervar.ge.24).and.(iaervar.le.36))
+      ELSE IF ((iaervar.ge.24).and.(iaervar.le.37))
      &     THEN  ! << MY... dust scenarios >>
         call read_dust_scenario(ngrid,nlayer,zday,pplev,