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

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

@@ -33 +33 @@
       unit(9)=46
 
-      if (if.le.nf) stop'verifier les appels a inigrads'
+      if (if<=nf) stop'verifier les appels a inigrads'
 
       print*,'Entree dans inigrads'
@@ -51 +51 @@
       do i=1,im
          xd(i,if)=x(i)*fx
-         if(xd(i,if).lt.xmin) iid(if)=i+1
-         if(xd(i,if).le.xmax) ifd(if)=i
+         if(xd(i,if)<xmin) iid(if)=i+1
+         if(xd(i,if)<=xmax) ifd(if)=i
       enddo
       print*,'On stoke du point ',iid(if),'  a ',ifd(if),' en x'
@@ -61 +61 @@
       do j=1,jm
          yd(j,if)=y(j)*fy
-         if(yd(j,if).gt.ymax) jid(if)=j+1
-         if(yd(j,if).ge.ymin) jfd(if)=j
+         if(yd(j,if)>ymax) jid(if)=j+1
+         if(yd(j,if)>=ymin) jfd(if)=j
       enddo
       print*,'On stoke du point ',jid(if),'  a ',jfd(if),' en y'