Changeset 408

Timestamp:

Oct 15, 2002, 4:59:57 PM (22 years ago)

Author:

lmdzadmin

Message:

Correction de bug sur la conservation de l'eau JLD
IM/LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/convect3.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/convect3.F

@@ -1041 +1041 @@
      1   T(1))*DPINV/CPN(1)
         FR(1)=0.1*MP(2)*(RP(2)-RR(1))*
-     1    DPINV+SIGD*0.5*(EVAP(1)+EVAP(2))
+Ccorrection bug conservation eau
+C     1    DPINV+SIGD*0.5*(EVAP(1)+EVAP(2))
+     1    DPINV+SIGD*EVAP(1)
         FR(1)=FR(1)+0.1*AM*(RR(2)-RR(1))*DPINV
         FU(1)=FU(1)+0.1*DPINV*(MP(2)*(UP(2)-U(1))+AM*(U(2)-U(1)))