Ignore:
Timestamp:
Jul 25, 2017, 11:01:28 PM (7 years ago)
Author:
aslmd
Message:

MESOSCALE MARS. added MESOSCALE precompiling flags to writediagfis added in r1711

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1711 r1758  
    603603        pdtcloud(:,:)=pdtcloud(:,:)*cloudfrac(:,:)
    604604      ENDIF
     605#ifndef MESOSCALE
    605606c=======================================================================
    606607      call WRITEDIAGFI(ngrid,"pdqice2","pdqcloudice apres microphysique"
    … …  
    621622     &      microphysique","nb/kg.s-1",3,pdqcloud(1:ngrid,1:nlay,
    622623     &      igcm_dust_number))
    623 
    624 
    625624c=======================================================================
     625#endif
    626626
    627627      END SUBROUTINE watercloud
Note: See TracChangeset for help on using the changeset viewer.