Changeset 1139 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90

Timestamp:

Mar 30, 2009, 3:59:31 PM (15 years ago)

Author:

idelkadi

Message:

Correction bug (gravite=10) dans le schema de convection : cv3_routines
Utilisation du meme seuil dans calltherm et wake pour la vapeur d eau

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90

@@ -126 +126 @@
          do k=1,klev
             do i=1,klon
-               logexpr2(i,k)=.not.q_seri(i,k).ge.0.
+! Attention teste abderr 19-03-09
+!               logexpr2(i,k)=.not.q_seri(i,k).ge.0.
+                logexpr2(i,k)=.not.q_seri(i,k).ge.1.e-15
                if (logexpr2(i,k)) then
                 q_seri(i,k)=1.e-15