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

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

@@ -170 +170 @@
 c
 c
-      IF( nitergdiv.NE.2 ) THEN
+      IF( nitergdiv/=2 ) THEN
         gamdi_gdiv = coefdis/ ( REAL(nitergdiv) -2. )
       ELSE
         gamdi_gdiv = 0.
       ENDIF
-      IF( nitergrot.NE.2 ) THEN
+      IF( nitergrot/=2 ) THEN
         gamdi_grot = coefdis/ ( REAL(nitergrot) -2. )
       ELSE
         gamdi_grot = 0.
       ENDIF
-      IF( niterh.NE.2 ) THEN
+      IF( niterh/=2 ) THEN
         gamdi_h = coefdis/ ( REAL(niterh) -2. )
       ELSE
@@ -230 +230 @@
         x1  = x1 - f/df
         xdm = ABS( x1- xo1 )
-        IF( xdm.LE.eps )GO TO 11
+        IF( xdm<=eps )GO TO 11
         xo1 = x1
  10     CONTINUE
@@ -247 +247 @@
         y1   = y1 -f/df
         ydm  = ABS(y1-yo1)
-        IF(ydm.LE.eps) GO TO 17
+        IF(ydm<=eps) GO TO 17
         yo1  = y1
  15     CONTINUE
@@ -410 +410 @@
 c
 
-      IF ( j .gt. 1 .AND. j .lt. jjp1 )  THEN
+      IF ( j > 1 .AND. j < jjp1 )  THEN
 c
         rlatp    = rlatu2 ( j-1 )