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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.