Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d/groupe.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/groupe.F (modified) (1 diff)

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

@@ -51 +51 @@
       if (firstcall) then
          if (groupe_ok) then
-            if(mod(iim,2**ngroup).ne.0)         
+            if(mod(iim,2**ngroup)/=0)
      &        CALL abort_gcm('groupe','probleme du nombre de point',1)
          endif