Changeset 302 for LMDZ.3.3/trunk/libf/phylmd/physiq.F

Timestamp:

Dec 14, 2001, 3:48:45 PM (23 years ago)

Author:

lmdz

Message:

Correction bug dans KE vectorise (FH, JYG)
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/physiq.F

@@ -1730 +1730 @@
 c    .        Ma,cape,tvp,(/(nint(rflag(i)),i=1,size(rflag))/),
      .        Ma,cape,tvp,iflagctrl,
-     .       pbase
-     .        ,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr)
+     .        pbase,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr)
 
           else