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

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

@@ -22 +22 @@
       DO j=1,jm
          DO i=1,im
-            IF(z(i,j).GT.zllm) THEN
+            IF(z(i,j)>zllm) THEN
                illm=i
                jllm=j
                zllm=z(i,j)
             ENDIF
-            IF(z(i,j).LT.zmin) THEN
+            IF(z(i,j)<zmin) THEN
                imin=i
                jmin=j
@@ -38 +38 @@
       PRINT*,'MAX: ',zllm
 
-      IF(zllm.GT.zmin) THEN
+      IF(zllm>zmin) THEN
        DO j=1,jm
         WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)