Changeset 1050 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Nov 13, 2008, 3:15:15 PM (16 years ago)
Author:
lmdzadmin
Message:

Correction bug sur l'eau totale epluchee au niveau (i) a l'ascendance
adiabatique par le melange sur les 2-3 premiers niveaux
NR/JYG/IM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1041 r1050  
    390390     :      .and. lwork(il) ) then
    391391       if(sij(il,i,j).gt.0.0)then
    392           rti=rr(il,1)-ep(il,i)*clw(il,i)
     392         rti=qnk(il)-ep(il,i)*clw(il,i)
    393393         Qmixmax(il)=Qmix(Sjmax(il))
    394394         Qmixmin(il)=Qmix(Sjmin(il))
Note: See TracChangeset for help on using the changeset viewer.