Changeset 537 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Jun 8, 2004, 6:47:45 PM (20 years ago)

Author:

lmdzadmin

Message:

Petit bug sur le signe de la valeur seuil du gradient tair-tsol
IM

File:

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

LMDZ.3.3/branches/rel-LF/libf/phylmd/stdlevvar.F90

@@ -98 +98 @@
         ustar(i) = sqrt(cdram(i) * speed(i) * speed(i))
         zdte(i) = tpot(i) - ts1(i)
+!       PRINT*,'AVANT i,zdte',i,zdte(i)
 !IM cf FH : on prend le max : pour eviter le plantage sur SUN
-        zdte(i) = max(zdte(i),1.e-10)
+!IM BUG BUG BUG       zdte(i) = max(zdte(i),1.e-10)
+        zdte(i) = sign(max(abs(zdte(i)),1.e-10),zdte(i))
+!       PRINT*,'APRES i,zdte',i,zdte(i)
+!
         zdq(i) = max(q1(i),0.0) - max(qsurf(i),0.0)
 !