Changeset 302


Ignore:
Timestamp:
Dec 14, 2001, 3:48:45 PM (23 years ago)
Author:
lmdz
Message:

Correction bug dans KE vectorise (FH, JYG)
LF

Location:
LMDZ.3.3/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/convect2.F

    r301 r302  
     1c
     2c $Header$
     3c
    14      subroutine convect2(ncum,idcum,len,nd,ndp1,nl,minorig,
    25     &                 nk1,icb1,
  • LMDZ.3.3/trunk/libf/phylmd/physiq.F

    r288 r302  
    17301730c    .        Ma,cape,tvp,(/(nint(rflag(i)),i=1,size(rflag))/),
    17311731     .        Ma,cape,tvp,iflagctrl,
    1732      .       pbase
    1733      .        ,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr)
     1732     .        pbase,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr)
    17341733
    17351734          else
Note: See TracChangeset for help on using the changeset viewer.