Changeset 1500

Timestamp:

Nov 19, 2015, 4:21:34 PM (9 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

Location:

trunk/LMDZ.MARS

Files:

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

trunk/LMDZ.MARS/README

@@ -2204 +2204 @@
   photochemistry_asis.F90 into the main (via contains instruction) to avoid
   multiple definitions of routines with identical names.
+
+== 19/11/2015 == EM
+- set things in param_read_e107.F and read_dust_scenario.F90 to read MY32
+  EUV and dust forcings.

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

trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90

@@ -78 +78 @@
    else if (iaervar.eq.31) then
      filename="dust_MY31.nc"
+   else if (iaervar.eq.32) then
+     filename="dust_MY32.nc"
    ! 124,125,126: old TES assimilated dust scenarios (at 700Pa ref pressure!)
    else if  (iaervar.eq.124) then