Changeset 2137

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

Files:

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

trunk/LMDZ.MARS/README

@@ -2712 +2712 @@
 == 24/04/09 == EM+FF
 - Updated co2condens to correctly conserve tracer mass
+
+== 10/05/2019 == EM
+- updates in code to be able to read in the MY34 dust scenario and the MY34
+  solar EUV input
+ 

trunk/LMDZ.MARS/libf/aeronomars/param_read_e107.F

@@ -268 +268 @@
       else if(solvaryear.eq.33) then
          filename="e107_MY33.dat"
+      else if(solvaryear.eq.34) then
+         filename="e107_MY34.dat"
       else
          write(*,*)"param_read_e107: "

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