Changeset 1717 for trunk/LMDZ.MARS/libf

Timestamp:

Jun 27, 2017, 11:08:54 AM (8 years ago)

Author:

emillour

Message:

Mars GCM:

• add possibility to read in MY33 EUV forcing.

FGG

File:

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

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

@@ -265 +265 @@
       else if(solvaryear.eq.32) then
          filename="e107_MY32.dat"
+      else if(solvaryear.eq.33) then
+         filename="e107_MY33.dat"
       else
          write(*,*)"param_read_e107: "
          write(*,*)"bad value for solvaryear in callphys.def"
-         write(*,*)"solvaryear must be between 24 and 32"
+         write(*,*)"solvaryear must be between 24 and 33"
          stop
       endif