Changeset 991 for LMDZ4/trunk


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/cv3_routines.F

    r973 r991  
    14941494     :                    ,ph,t,rr,rs,u,v,tra,h,lv,qnk
    14951495     :                    ,unk,vnk,hp,tv,tvp,ep,clw,m,sig
    1496      :   ,ment,qent,uent,vent,sij,elij,ments,qents,traent)
     1496     :   ,ment,qent,uent,vent,nent,sij,elij,ments,qents,traent)
    14971497      implicit none
    14981498
    … …  
    15251525      real ments(nloc,nd,nd), qents(nloc,nd,nd)
    15261526      real sigij(nloc,nd,nd)
     1527      integer nent(nloc,nd)
    15271528
    15281529c local variables:
    15291530      integer i, j, k, il, im, jm
    15301531      integer num1, num2
    1531       integer nent(nloc,na)
    15321532      real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
    15331533      real alt, smid, sjmin, sjmax, delp, delm

  • LMDZ4/trunk/libf/phylmd/cv3p_mixing.F

    r879 r991  
    22     :                    ,ph,t,rr,rs,u,v,tra,h,lv,qnk
    33     :                    ,unk,vnk,hp,tv,tvp,ep,clw,sig
    4      :                    ,ment,qent,hent,uent,vent
     4     :                    ,ment,qent,hent,uent,vent,nent
    55     :                   ,sij,elij,supmax,ments,qents,traent)
    66***************************************************************
    … …  
    4343      real sigij(nloc,nd,nd)
    4444      real hent(nloc,nd,nd)
     45      integer nent(nloc,nd)
    4546
    4647c local variables:
    4748      integer i, j, k, il, im, jm
    4849      integer num1, num2
    49       integer nent(nloc,na)
    5050      real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
    5151      real alt, delp, delm

  • LMDZ4/trunk/libf/phylmd/cva_driver.F

    r987 r991  
    737737     :                       ,ph,t,q,qs,u,v,tra,h,lv,qnk
    738738     :                       ,unk,vnk,hp,tv,tvp,ep,clw,sig
    739      :                    ,ment,qent,hent,uent,vent
     739     :                    ,ment,qent,hent,uent,vent,nent
    740740     :                   ,sij,elij,supmax,ments,qents,traent)
    741741!        print*, 'cv3p_mixing-> supmax ', (supmax(1,k), k=1,nd)
    … …  
    793793     :                       ,ph,t,q,qs,u,v,tra,h,lv,qnk
    794794     :                       ,unk,vnk,hp,tv,tvp,ep,clw,m,sig
    795      o   ,ment,qent,uent,vent,sij,elij,ments,qents,traent)
     795     o   ,ment,qent,uent,vent,nent,sij,elij,ments,qents,traent)
    796796         CALL zilch(hent,nloc*klev*klev)
    797797        ELSE
Note: See TracChangeset for help on using the changeset viewer.