Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/coordij.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_common/coordij.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/coordij.F

@@ -28 +28 @@
 
       DO i=1,iim+1
-         IF (rlonu(i).GT.zlon) THEN
+         IF (rlonu(i)>zlon) THEN
             ilon=i
             GOTO 10
@@ -37 +37 @@
       j=0
       DO j=1,jjm
-         IF(rlatv(j).LT.zlat) THEN
+         IF(rlatv(j)<zlat) THEN
             jlat=j
             GOTO 20
@@ -43 +43 @@
       ENDDO
 20    CONTINUE
-      IF(j.EQ.0) j=jjm+1
+      IF(j==0) j=jjm+1
 
       RETURN