Changeset 991 for LMDZ4/trunk/libf/phylmd

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

Location:

LMDZ4/trunk/libf/phylmd

Files:

• cv3_routines.F (modified) (2 diffs)
• cv3p_mixing.F (modified) (2 diffs)
• cva_driver.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/cv3_routines.F

@@ -1494 +1494 @@
      :                    ,ph,t,rr,rs,u,v,tra,h,lv,qnk
      :                    ,unk,vnk,hp,tv,tvp,ep,clw,m,sig
-     :   ,ment,qent,uent,vent,sij,elij,ments,qents,traent)
+     :   ,ment,qent,uent,vent,nent,sij,elij,ments,qents,traent)
       implicit none
 
@@ -1525 +1525 @@
       real ments(nloc,nd,nd), qents(nloc,nd,nd)
       real sigij(nloc,nd,nd)
+      integer nent(nloc,nd)
 
 c local variables:
       integer i, j, k, il, im, jm
       integer num1, num2
-      integer nent(nloc,na)
       real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
       real alt, smid, sjmin, sjmax, delp, delm

LMDZ4/trunk/libf/phylmd/cv3p_mixing.F

@@ -2 +2 @@
      :                    ,ph,t,rr,rs,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)
 ***************************************************************
@@ -43 +43 @@
       real sigij(nloc,nd,nd)
       real hent(nloc,nd,nd)
+      integer nent(nloc,nd)
 
 c local variables:
       integer i, j, k, il, im, jm
       integer num1, num2
-      integer nent(nloc,na)
       real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
       real alt, delp, delm

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