Changeset 1050

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:

• LMDZ4/trunk/libf/phylmd/cv3p_mixing.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/cv3p_mixing.F

@@ -390 +390 @@
      :      .and. lwork(il) ) then
        if(sij(il,i,j).gt.0.0)then
-          rti=rr(il,1)-ep(il,i)*clw(il,i)
+         rti=qnk(il)-ep(il,i)*clw(il,i)
          Qmixmax(il)=Qmix(Sjmax(il))
          Qmixmin(il)=Qmix(Sjmin(il))