Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inter_barxy_m.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/dyn3d_common/inter_barxy_m.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inter_barxy_m.F90

@@ -153 +153 @@
 
     CALL minmax( imodmax, xxim, chmin, chmax)
-    IF( chmax.LT.6.50 )   THEN
+    IF( chmax<6.50 )   THEN
        DO imod = 1, imodmax
           xxim(imod) = xxim(imod) * 180./pi
@@ -172 +172 @@
 
     CALL minmax( idatmax, xxd, chmin, chmax)
-    IF( chmax.LT.6.50 )  THEN
+    IF( chmax<6.50 )  THEN
        DO idat = 1, idatmax
           xxd(idat) = xxd(idat) * 180./pi
@@ -213 +213 @@
 
     DO idat = 1, idatmax
-       IF ( xxd( idatmax1- idat ).LT.360.) exit
+       IF ( xxd( idatmax1- idat )<360.) exit
        id1 = id1 + 1
     ENDDO
 
     DO idat = 1, idatmax
-       IF (xxd(idat).GT.0.) exit
+       IF (xxd(idat)>0.) exit
        id0 = id0 + 1
     END DO
@@ -264 +264 @@
 
     do while (imod <= imodmax)
-       do while (xxim(imod).GT.xxid(idat))
+       do while (xxim(imod)>xxid(idat))
           dx   = xxid(idat) - x0
           dxm  = dxm + dx
@@ -271 +271 @@
           idat = idat + 1
        end do
-       IF (xxim(imod).LT.xxid(idat)) THEN
+       IF (xxim(imod)<xxid(idat)) THEN
           dx   = xxim(imod) - x0
           dxm  = dxm + dx