Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/tiedqneg.F

Timestamp:

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

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/tiedqneg.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/tiedqneg.F

@@ -29 +29 @@
         nb_neg = 0
         DO i = 1,klon
-          IF (q(i,l)+d_q(i,l).LT.qmin) THEN 
+          IF (q(i,l)+d_q(i,l)<qmin) THEN
           nb_neg = nb_neg + 1
           d_q(i,l-1) = d_q(i,l-1) + (q(i,l)+d_q(i,l)-qmin)
@@ -44 +44 @@
         nb_neg = 0
         DO i = 1,klon
-          IF (q(i,l)+d_q(i,l).LT.qmin) THEN
+          IF (q(i,l)+d_q(i,l)<qmin) THEN
           nb_neg = nb_neg + 1
           d_q(i,l+1) = d_q(i,l+1) + (q(i,l)+d_q(i,l)-qmin)
@@ -58 +58 @@
       l = klev
       DO i = 1,klon
-        IF (q(i,l)+d_q(i,l).LT.qmin) THEN 
+        IF (q(i,l)+d_q(i,l)<qmin) THEN
           d_q(i,l) = qmin - q(i,l)
         ENDIF