Changeset 4030 for trunk/LMDZ.MARS/libf/aeronomars/param_read_e107.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/aeronomars/param_read_e107.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/param_read_e107.F

@@ -255 +255 @@
 
       !Tabulated values for E10.7
-      if((solvaryear.ge.23).and.(solvaryear.le.36)) then
+      if((solvaryear.ge.23).and.(solvaryear.le.37)) then
         write(filename,fmt="(a,i2,a)")"e107_MY",solvaryear,".dat"
       else
          write(*,*)"param_read_e107: "
          write(*,*)"bad value for solvaryear in callphys.def"
-         write(*,*)"solvaryear must be between 24 and 36"
+         write(*,*)"solvaryear must be between 24 and 37"
          stop
       endif