Changeset 559 for LMDZ4/trunk/libf/phylmd/cv3_routines.F

Timestamp:

Nov 9, 2004, 5:55:41 PM (20 years ago)

Author:

lmdzadmin

Message:

Initialisations diverses YM
LF

File:

• LMDZ4/trunk/libf/phylmd/cv3_routines.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/cv3_routines.F

@@ -194 +194 @@
       real pnk(len), qsnk(len), rh(len), chi(len)
       real A, B ! convect3
-
+cym
+      plcl=0.0
 c@ !-------------------------------------------------------------------
 c@ ! --- Find level of minimum moist static energy
@@ -1488 +1489 @@
             vent(i,k,j)=v(i,j)
             elij(i,k,j)=0.0
-            ment(i,k,j)=0.0
-            sij(i,k,j)=0.0
+cym            ment(i,k,j)=0.0
+cym            sij(i,k,j)=0.0
  385      continue
  390    continue
  400  continue
 
+cym
+      ment(1:ncum,1:nd,1:nd)=0.0
+      sij(1:ncum,1:nd,1:nd)=0.0
+      
 c      do k=1,ntra
 c       do j=1,nd  ! instead nlp
@@ -1620 +1625 @@
 c=====================================================================
 
-      call zilch(asum,ncum*nd)
-      call zilch(bsum,ncum*nd)
-      call zilch(csum,ncum*nd)
+cym      call zilch(asum,ncum*nd)
+cym      call zilch(bsum,ncum*nd)
+cym      call zilch(csum,ncum*nd)
+      call zilch(asum,nloc*nd)
+      call zilch(csum,nloc*nd)
+      call zilch(csum,nloc*nd)
 
       do il=1,ncum