Changeset 1500 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Nov 19, 2015, 4:21:34 PM (10 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

Location:
trunk/LMDZ.MARS/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1381 r1500  
    263263      else if(solvaryear.eq.31) then
    264264         filename="e107_MY31.dat"
     265      else if(solvaryear.eq.32) then
     266         filename="e107_MY32.dat"
    265267      else
    266268         write(*,*)"param_read_e107: "
    267269         write(*,*)"bad value for solvaryear in callphys.def"
    268          write(*,*)"solvaryear must be between 24 and 31"
     270         write(*,*)"solvaryear must be between 24 and 32"
    269271         stop
    270272      endif

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

    r1381 r1500  
    7878   else if (iaervar.eq.31) then
    7979     filename="dust_MY31.nc"
     80   else if (iaervar.eq.32) then
     81     filename="dust_MY32.nc"
    8082   ! 124,125,126: old TES assimilated dust scenarios (at 700Pa ref pressure!)
    8183   else if  (iaervar.eq.124) then
Note: See TracChangeset for help on using the changeset viewer.