Changeset 2689 for trunk/LMDZ.MARS/libf

Timestamp:

Jun 18, 2022, 7:50:16 PM (2 years ago)

Author:

emillour

Message:

Mars GCM:
Enable reading MY35 E107 forcing.
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.eq.23) then
-         filename="e107_MY23.dat"
-      else if(solvaryear.eq.24) then
-         filename="e107_MY24.dat"
-      else if(solvaryear.eq.25) then
-         filename="e107_MY25.dat"
-      else if (solvaryear.eq.26) then
-         filename="e107_MY26.dat"
-      else if (solvaryear.eq.27) then
-         filename="e107_MY27.dat"
-      else if (solvaryear.eq.28) then
-         filename="e107_MY28.dat"
-      else if (solvaryear.eq.29) then
-         filename="e107_MY29.dat"
-      else if(solvaryear.eq.30) then
-         filename="e107_MY30.dat"
-      else if(solvaryear.eq.31) then
-         filename="e107_MY31.dat"
-      else if(solvaryear.eq.32) then
-         filename="e107_MY32.dat"
-      else if(solvaryear.eq.33) then
-         filename="e107_MY33.dat"
-      else if(solvaryear.eq.34) then
-         filename="e107_MY34.dat"
+      if((solvaryear.ge.23).and.(solvaryear.le.35)) 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 33"
+         write(*,*)"solvaryear must be between 24 and 35"
          stop
       endif