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

Timestamp:

Mar 25, 2023, 7:05:48 AM (22 months ago)

Author:

emillour

Message:

Mars PCM:
Add the possibility to use MY36 dust scenario and MY36 EUV inputs
EM

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• aeropacity_mod.F (modified) (2 diffs)
• read_dust_scenario_mod.F90 (modified) (1 diff)

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

@@ -311 +311 @@
         call read_dust_scenario(ngrid,nlayer,zday,pplev,
      &                          IRtoVIScoef,tau_pref_scenario)
-      ELSE IF ((iaervar.ge.24).and.(iaervar.le.35))
+      ELSE IF ((iaervar.ge.24).and.(iaervar.le.36))
      &     THEN  ! << MY... dust scenarios >>
         call read_dust_scenario(ngrid,nlayer,zday,pplev,
@@ -706 +706 @@
           call read_dust_scenario(ngrid,nlayer,zday,pplev,
      &                            IRtoVIScoef,tau_pref_scenario)
-        ELSE IF ((iaervar.ge.24).and.(iaervar.le.35))
+        ELSE IF ((iaervar.ge.24).and.(iaervar.le.36))
      &       THEN  ! << MY... dust scenarios >>
           call read_dust_scenario(ngrid,nlayer,zday,pplev,

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

@@ -83 +83 @@
    else if (iaervar.eq.8) then
      filename="dust_clim.nc"
-   else if ((iaervar.ge.24).and.(iaervar.le.35)) then
+   else if ((iaervar.ge.24).and.(iaervar.le.36)) then
      write(filename,'(a7,i2,a3)')"dust_MY",iaervar,".nc"
    ! 124,125,126: old TES assimilated dust scenarios (at 700Pa ref pressure!)