Changeset 1502 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Nov 23, 2015, 10:56:33 AM (10 years ago)
Author:
emillour
Message:

Mars GCM:

  • added missing condition to use MY32 dust scenario in aeropacity
  • corrected stats output for vmr_ice*rice in physiq

EM

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

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/aeropacity.F

    r1410 r1502  
    264264      ! clim, cold or warm synthetic scenarios
    265265        call read_dust_scenario(ngrid,nlayer,zday,pplev,tauref)
    266       ELSE IF ((iaervar.ge.24).and.(iaervar.le.31))
     266      ELSE IF ((iaervar.ge.24).and.(iaervar.le.32))
    267267     &     THEN  ! << MY... dust scenarios >>
    268268        call read_dust_scenario(ngrid,nlayer,zday,pplev,tauref)

  • trunk/LMDZ.MARS/libf/phymars/physiq.F

    r1495 r1502  
    18101810              ! also store vmr_ice*rice for better diagnostics of rice
    18111811               vmr(1:ngrid,1:nlayer)=vmr(1:ngrid,1:nlayer)*
    1812      &                               zq(1:ngrid,1:nlayer,igcm_h2o_ice)
     1812     &                               rice(1:ngrid,1:nlayer)
    18131813               call wstats(ngrid,"vmr_h2oice_rice",
    18141814     &                "H2O ice mixing ratio times ice particule size",
Note: See TracChangeset for help on using the changeset viewer.