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

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

@@ -46 +46 @@
 
       if(firsttime(if)) then
-         if(name.eq.var(1,if)) then
+         if(name==var(1,if)) then
             firsttime(if)=.false.
             ivar(if)=1
@@ -68 +68 @@
       else
          ivar(if)=mod(ivar(if),nvar(if))+1
-         if (ivar(if).eq.nvar(if)) then
+         if (ivar(if)==nvar(if)) then
             writectl=.true.
             itime(if)=itime(if)+1
          endif
 
-         if(var(ivar(if),if).ne.name) then
+         if(var(ivar(if),if)/=name) then
            print*,'Il faut stoker la meme succession de champs a chaque'
            print*,'pas de temps'