Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/evappot.F90

Timestamp:

Jul 19, 2024, 5:41:58 PM (4 months ago)

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/evappot.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/evappot.F90

@@ -22 +22 @@
 DO nsrf = 1, nbsrf
    DO i = 1, klon
-      IF (ftsol(i,nsrf).LT.t_coup) THEN
+      IF (ftsol(i,nsrf)<t_coup) THEN
          qsat_ftsol(i,nsrf) = qsats(ftsol(i,nsrf))/pplay(i)
       ELSE