Changeset 965


Ignore:
Timestamp:
Jun 9, 2008, 11:56:40 AM (16 years ago)
Author:
Laurent Fairhead
Message:

Un peu de menage pour avoir moins de sorties a l'execution
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/cv_driver.F

    r879 r965  
    375375      if (iflag_con.eq.30) then
    376376
    377        print*,'Emanuel version 30 '
     377!       print*,'Emanuel version 30 '
    378378       CALL cv30_prelim(len,nd,ndp1,t1,q1,p1,ph1            ! nd->na
    379379     o               ,lv1,cpn1,tv1,gz1,h1,hm1,th1)

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r959 r965  
    20052005          enddo
    20062006       else
    2007           print*,'ALE et ALP couples au thermique'
     2007         IF(prt_level>9)WRITE(lunout,*)'ALE et ALP couples au thermique'
    20082008          do i = 1,klon
    20092009              ALE(i) = max(ale_wake(i),Ale_bl(i))
Note: See TracChangeset for help on using the changeset viewer.