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

Timestamp:

Jun 2, 2014, 11:22:51 AM (11 years ago)

Author:

emillour

Message:

Mars GCM:

• Add possibility to use clim or MY31 dust scenarios (and realistic EUV for MY31).

EM

File:

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

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

@@ -261 +261 @@
       else if(solvaryear.eq.30) then
          filename="e107_MY30.dat"
+      else if(solvaryear.eq.31) then
+         filename="e107_MY31.dat"
       else
          write(*,*)"param_read_e107: "
          write(*,*)"bad value for solvaryear in callphys.def"
-         write(*,*)"solvaryear must be between 24 and 30"
+         write(*,*)"solvaryear must be between 24 and 31"
          stop
       endif