Changeset 2137 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

May 10, 2019, 8:26:33 AM (6 years ago)

Author:

emillour

Message:

Mars GCM:
Updates in code to be able to read in the MY34 dust scenario and the MY34 solar EUV input.
EM

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• aeropacity_mod.F (modified) (1 diff)
• read_dust_scenario.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/aeropacity_mod.F

@@ -289 +289 @@
       ! clim, cold or warm synthetic scenarios
         call read_dust_scenario(ngrid,nlayer,zday,pplev,tauref)
-      ELSE IF ((iaervar.ge.24).and.(iaervar.le.33))
+      ELSE IF ((iaervar.ge.24).and.(iaervar.le.34))
      &     THEN  ! << MY... dust scenarios >>
         call read_dust_scenario(ngrid,nlayer,zday,pplev,tauref)

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

@@ -83 +83 @@
    else if (iaervar.eq.33) then
      filename="dust_MY33.nc"
+   else if (iaervar.eq.34) then
+     filename="dust_MY34.nc"
    ! 124,125,126: old TES assimilated dust scenarios (at 700Pa ref pressure!)
    else if  (iaervar.eq.124) then