Changeset 301 for LMDZ.3.3/trunk


Ignore:
Timestamp:
Dec 14, 2001, 3:39:31 PM (23 years ago)
Author:
lmdzadmin
Message:

Correction bug pour KE vectorise FH, JYG
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/phylmd/convect2.F

    r254 r301  
    585585c
    586586      do 380 i=1,ncum*nlp*nlp
    587         elij(i,1,1)=0.0
    588         ment(i,1,1)=0.0
    589         sij(i,1,1)=0.0
    590587 380  continue
    591588c
    … …  
    596593            uent(i,k,j)=u(i,j)
    597594            vent(i,k,j)=v(i,j)
     595            elij(i,k,j)=0.0
     596            ment(i,k,j)=0.0
     597            sij(i,k,j)=0.0
    598598 385      continue
    599599 390    continue
Note: See TracChangeset for help on using the changeset viewer.