Changeset 1500 for trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90

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

File:

• trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90 (modified) (1 diff)

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