Changeset 991 for LMDZ4/trunk/libf/phylmd/cva_driver.F

Timestamp:

Aug 5, 2008, 5:27:04 PM (16 years ago)

Author:

Laurent Fairhead

Message:

La variable nent n'etait pas remontee dans la bonne routine YM/JYG
LF

File:

• LMDZ4/trunk/libf/phylmd/cva_driver.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/cva_driver.F

@@ -737 +737 @@
      :                       ,ph,t,q,qs,u,v,tra,h,lv,qnk
      :                       ,unk,vnk,hp,tv,tvp,ep,clw,sig
-     :                    ,ment,qent,hent,uent,vent
+     :                    ,ment,qent,hent,uent,vent,nent
      :                   ,sij,elij,supmax,ments,qents,traent)
 !        print*, 'cv3p_mixing-> supmax ', (supmax(1,k), k=1,nd)
@@ -793 +793 @@
      :                       ,ph,t,q,qs,u,v,tra,h,lv,qnk
      :                       ,unk,vnk,hp,tv,tvp,ep,clw,m,sig
-     o   ,ment,qent,uent,vent,sij,elij,ments,qents,traent)
+     o   ,ment,qent,uent,vent,nent,sij,elij,ments,qents,traent)
          CALL zilch(hent,nloc*klev*klev)
         ELSE