Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.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/fluxstokenc.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F

@@ -79 +79 @@
 
 
-      IF(iadvtr.EQ.0) THEN
+      IF(iadvtr==0) THEN
          phic(:,:)=0
          tetac(:,:)=0
@@ -99 +99 @@
 
 c   selection de la masse instantannee des mailles avant le transport.
-      IF(iadvtr.EQ.0) THEN
+      IF(iadvtr==0) THEN
          CALL SCOPY(ip1jmp1*llm,masse,1,massem,1)
       ENDIF
@@ -107 +107 @@
 
 c   Test pour savoir si on advecte a ce pas de temps
-      IF ( iadvtr.EQ.istdyn ) THEN
+      IF ( iadvtr==istdyn ) THEN
 c    normalisation
       DO l=1,llm