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

Timestamp:

Nov 19, 2015, 4:21:34 PM (10 years ago)

Author:

emillour

Message:

Mars GCM:

• set things in param_read_e107.F and read_dust_scenario.F90 to read MY32 EUV and dust forcings.

EM

File:

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

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

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