Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.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/phylmd/iophy.F90 (modified) (12 diffs)

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

@@ -328 +328 @@
      plon_bounds(i,1)=rlon_glo(tabij(i)-1)
      plon_bounds(i,2)=rlon_glo(tabij(i)+1)
-     IF (plon_bounds(i,2).LE.0..AND.plon_bounds(i,1).GE.0.) THEN
-      IF (rlon_glo(tabij(i)).GE.0.) THEN
+     IF (plon_bounds(i,2)<=0..AND.plon_bounds(i,1)>=0.) THEN
+      IF (rlon_glo(tabij(i))>=0.) THEN
        plon_bounds(i,2)=-1*plon_bounds(i,2)
       ENDIF
      ENDIF
-     IF (plon_bounds(i,2).GE.0..AND.plon_bounds(i,1).LE.0.) THEN
-      IF (rlon_glo(tabij(i)).LE.0.) THEN
+     IF (plon_bounds(i,2)>=0..AND.plon_bounds(i,1)<=0.) THEN
+      IF (rlon_glo(tabij(i))<=0.) THEN
        plon_bounds(i,2)=-1*plon_bounds(i,2)
       ENDIF
      ENDIF
 !
-     IF ( tabij(i).LE.nbp_lon) THEN
+     IF ( tabij(i)<=nbp_lon) THEN
       plat_bounds(i,1)=rlat_glo(tabij(i))
      ELSE
@@ -361 +361 @@
 
        CALL grid1dTo2d_glo(rlon_glo,zx_lon)
-       IF ((nbp_lon*nbp_lat).GT.1) THEN
+       IF ((nbp_lon*nbp_lat)>1) THEN
        DO i = 1, nbp_lon
          zx_lon(i,1) = rlon_glo(i+1)
@@ -375 +375 @@
      plon_bounds(i,2)=zx_lon(ipt(i)+1,jpt(i))
 
-     IF (ipt(i).EQ.1) THEN
+     IF (ipt(i)==1) THEN
       plon_bounds(i,1)=zx_lon(nbp_lon,jpt(i))
       plon_bounds(i,2)=360.+zx_lon(ipt(i)+1,jpt(i))
      ENDIF
  
-     IF (ipt(i).EQ.nbp_lon) THEN
+     IF (ipt(i)==nbp_lon) THEN
       plon_bounds(i,2)=360.+zx_lon(1,jpt(i))
      ENDIF
@@ -387 +387 @@
      plat_bounds(i,2)=zx_lat(ipt(i),jpt(i)+1)
 
-     IF (jpt(i).EQ.1) THEN
+     IF (jpt(i)==1) THEN
       plat_bounds(i,1)=zx_lat(ipt(i),1)+0.001
       plat_bounds(i,2)=zx_lat(ipt(i),1)-0.001
      ENDIF
  
-     IF (jpt(i).EQ.nbp_lat) THEN
+     IF (jpt(i)==nbp_lat) THEN
       plat_bounds(i,1)=zx_lat(ipt(i),nbp_lat)+0.001
       plat_bounds(i,2)=zx_lat(ipt(i),nbp_lat)-0.001
@@ -412 +412 @@
       tabprocbeg=klon_mpi_begin
       tabprocend=klon_mpi_end
-      IF(tabij(ip).GE.tabprocbeg.AND.tabij(ip).LE.tabprocend) THEN
+      IF(tabij(ip)>=tabprocbeg.AND.tabij(ip)<=tabprocend) THEN
        npproc=npproc+1
        npstn=npproc
@@ -425 +425 @@
      npproc=0
      DO ip=1, pim
-      IF(tabij(ip).GE.tabprocbeg.AND.tabij(ip).LE.tabprocend) THEN
+      IF(tabij(ip)>=tabprocbeg.AND.tabij(ip)<=tabprocend) THEN
        npproc=npproc+1
        nptabij(npproc)=tabij(ip)
@@ -852 +852 @@
       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
@@ -923 +923 @@
         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
@@ -1127 +1127 @@
                               DO ip=1, npstn
                                 write(lunout,*)'histwrite2d_phy is_sequential npstn ip namenptabij',npstn,ip,var%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
@@ -1331 +1331 @@
                               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
@@ -1420 +1420 @@
                 DO ip=1, npstn
                     PRINT*,'histwrite2d_xios is_sequential npstn ip namenptabij',npstn,ip,field_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
@@ -1510 +1510 @@
                 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