Changeset 1717

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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/aeronomars/param_read_e107.F (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -2451 +2451 @@
 - remove writing a "nebuldata.out" file in physiq introduced by previous update.
   It is not necessary and causes issues when in parallel.
+
+== 27/06/2017 == FGG
+- add possibility to read in MY33 EUV forcing.

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