Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90

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/phydev/iophy.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90

@@ -243 +243 @@
       DO ip=1, npstn
 !     print*,'histwrite2d is_sequential npstn ip name nptabij',npstn,ip,name,nptabij(ip)
-       IF(nptabij(ip).GE.klon_mpi_begin.AND. &
-          nptabij(ip).LE.klon_mpi_end) THEN
+       IF(nptabij(ip)>=klon_mpi_begin.AND. &
+          nptabij(ip)<=klon_mpi_end) THEN
          fieldok(ip)=buffer_omp(nptabij(ip)-klon_mpi_begin+1)
        ENDIF
@@ -305 +305 @@
        DO n=1, nlev
        DO ip=1, npstn
-        IF(nptabij(ip).GE.klon_mpi_begin.AND. &
-         nptabij(ip).LE.klon_mpi_end) THEN
+        IF(nptabij(ip)>=klon_mpi_begin.AND. &
+         nptabij(ip)<=klon_mpi_end) THEN
          fieldok(ip,n)=buffer_omp(nptabij(ip)-klon_mpi_begin+1,n)
         ENDIF