Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/filtrez/filtreg.F

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/filtrez/filtreg.F (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/filtreg.F

@@ -83 +83 @@
       ENDIF
 
-      IF(ifiltre.EQ.1.or.ifiltre.EQ.-1) 
+      IF(ifiltre==1.or.ifiltre==-1)
      &     STOP'Pas de transformee simple dans cette version'
       
-      IF( iter.EQ. 2 )  THEN
+      IF( iter== 2 )  THEN
          PRINT *,' Pas d iteration du filtre dans cette version !'
      &        , ' Utiliser old_filtreg et repasser !'
@@ -92 +92 @@
       ENDIF
       
-      IF( ifiltre.EQ. -2 .AND..NOT.griscal )     THEN
+      IF( ifiltre== -2 .AND..NOT.griscal )     THEN
          PRINT *,' Cette routine ne calcule le filtre inverse que '
      &        , ' sur la grille des scalaires !'
@@ -98 +98 @@
       ENDIF
       
-      IF( ifiltre.NE.2 .AND.ifiltre.NE. - 2 )  THEN
+      IF( ifiltre/=2 .AND.ifiltre/= - 2 )  THEN
          PRINT *,' Probleme dans filtreg car ifiltre NE 2 et NE -2'
      &        , ' corriger et repasser !'
@@ -113 +113 @@
          ELSE
             
-            IF( iaire.EQ.1 )  THEN
+            IF( iaire==1 )  THEN
                sdd1_type = type_sddv
                sdd2_type = type_unsddv
@@ -135 +135 @@
          END IF
       ELSE
-         IF( nlat.NE.jjm )  THEN
+         IF( nlat/=jjm )  THEN
             PRINT  2222
             STOP
          ELSE
             
-            IF( iaire.EQ.1 )  THEN
+            IF( iaire==1 )  THEN
                sdd1_type = type_sddu
                sdd2_type = type_unsddu
@@ -165 +165 @@
       DO hemisph = 1, 2
          
-         IF ( hemisph.EQ.1 )  THEN
+         IF ( hemisph==1 )  THEN
             jdfil = jdfil1
             jffil = jffil1
@@ -279 +279 @@
          ENDIF
          
-         IF( ifiltre.EQ. 2 )  THEN
+         IF( ifiltre== 2 )  THEN
             
             DO l = 1, nbniv