Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j.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/dyn3d/tetaleveli1j.F (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j.F

@@ -57 +57 @@
 c=====================================================================
       if (lnew) then
-c   on réinitialise les réindicages et les poids
+c   on r�initialise les r�indicages et les poids
 c=====================================================================
 
@@ -67 +67 @@
       DO 130 i = 1, ilon
 cIM      IF ( ABS(pres-pgcm(i,ilev) ) .LT.
-         IF ( ABS(pres-pgcm(i,ilev) ) .GT.
+         IF ( ABS(pres-pgcm(i,ilev) ) >
      .        ABS(pres-pgcm(i,1)) ) THEN
             lt(i) = ilev     ! 2
@@ -83 +83 @@
             ptop = pgcm(i,k+1)
 cIM         IF (ptop.LE.pres .AND. pbot.GE.pres) THEN
-            IF (ptop.GE.pres .AND. pbot.LE.pres) THEN
+            IF (ptop>=pres .AND. pbot<=pres) THEN
                lt(i) = k+1
                lb(i) = k
@@ -96 +96 @@
 c
 c ...   Modif . P. Le Van    ( 20/01/98) ....
-c       Modif Frédéric Hourdin (3/01/02)
+c       Modif Fr�d�ric Hourdin (3/01/02)
 
-        IF(pgcm(i,lb(i)).EQ.0.OR.
-     $     pgcm(i,lt(i)).EQ.0.) THEN
+        IF(pgcm(i,lb(i))==0.OR.
+     $     pgcm(i,lt(i))==0.) THEN
 c
         PRINT*,'i,lb,lt,2pgcm,pres',i,lb(i),
@@ -128 +128 @@
       do i = 1, ilon
 cIM      if (pgcm(i,1).LT.pres) THEN
-         if (pgcm(i,1).GT.pres) THEN
+         if (pgcm(i,1)>pres) THEN
 c           Qpres(i)=1e33
             Qpres(i)=1e+20