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

Timestamp:

Dec 18, 2017, 11:03:14 AM (7 years ago)

Author:

emillour

Message:

Mars GCM:
Add possibility to load a dust MY33 scenario.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90 (modified) (2 diffs)

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

@@ -7 +7 @@
 implicit none
 
-#include "datafile.h"
-#include "callkeys.h"
+include "datafile.h"
+include "callkeys.h"
 
 integer, intent(in) :: ngrid,nlayer
@@ -81 +81 @@
    else if (iaervar.eq.32) then
      filename="dust_MY32.nc"
+   else if (iaervar.eq.33) then
+     filename="dust_MY33.nc"
    ! 124,125,126: old TES assimilated dust scenarios (at 700Pa ref pressure!)
    else if  (iaervar.eq.124) then