Changeset 698 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jun 6, 2012, 11:37:01 AM (13 years ago)
Author:
acolaitis
Message:

MESOSCALE: bug correction in physiq.F for newphys with case 0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/libf/phymars/physiq.F

    r695 r698  
    16901690      !! Dust quantity integration along the vertical axe
    16911691      dustot(:)=0
     1692      IF (igcm_dust_mass .ne. 0) THEN
    16921693      do ig=1,ngrid
    16931694       do l=1,nlayermx
     
    16971698       enddo
    16981699      enddo
     1700      ENDIF
    16991701      ENDIF
    17001702      !! TAU water ice as seen by TES
Note: See TracChangeset for help on using the changeset viewer.