Changeset 2921 for trunk/LMDZ.MARS/libf/aeronomars

Timestamp:

Mar 25, 2023, 7:05:48 AM (2 years ago)

Author:

emillour

Message:

Mars PCM:
Add the possibility to use MY36 dust scenario and MY36 EUV inputs
EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/param_read_e107.F (modified) (1 diff)

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

@@ -252 +252 @@
 
       !Tabulated values for E10.7
-      if((solvaryear.ge.23).and.(solvaryear.le.35)) then
+      if((solvaryear.ge.23).and.(solvaryear.le.36)) 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 35"
+         write(*,*)"solvaryear must be between 24 and 36"
          stop
       endif