Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/cltracrn.F90

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/phylmd/cltracrn.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cltracrn.F90

@@ -177 +177 @@
 ! Le Rn est traiter commme une couche Brownienne puisque vdeptr = 0.
 !-------------------------------------------------------------------
-     IF ( NINT(masktr(i)) .EQ. 1 ) THEN
+     IF ( NINT(masktr(i)) == 1 ) THEN
         zx_trs(i) = local_trs(i)
         zx_a = zx_trs(i)                                           &
@@ -197 +197 @@
 !--------------------------------------------------------
 
-     IF ( (itr.eq.id_rn.AND.NINT(masktr(i)).EQ.1.AND.lat(i).GE.60..AND.lat(i).LE.70.).OR.      &
-          (itr.eq.id_pb.AND.NINT(masktr(i)).EQ.1.AND.lat(i).GE.60..AND.lat(i).LE.70.) ) THEN
+     IF ( (itr==id_rn.AND.NINT(masktr(i))==1.AND.lat(i)>=60..AND.lat(i)<=70.).OR.      &
+          (itr==id_pb.AND.NINT(masktr(i))==1.AND.lat(i)>=60..AND.lat(i)<=70.) ) THEN
         zx_trs(i) = local_trs(i)
         zx_a = zx_trs(i)                                           &
@@ -223 +223 @@
 !---------------------------------------------------------------
 
-     IF ( (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.0).OR.       &
-          (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.1.AND.lat(i).LT.-60.)) THEN
+     IF ( (itr==id_rn.AND.NINT(masktr(i))==0).OR.       &
+          (itr==id_rn.AND.NINT(masktr(i))==1.AND.lat(i)<-60.)) THEN
         zx_trs(i) = 0.
         local_trs(i) = 0.
@@ -232 +232 @@
 ! des oceans et des continents
 !--------------------------------------------------------------
-     IF ( (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.0).OR.    &
-          (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.1.AND.lat(i).GT.70.)) THEN
+     IF ( (itr==id_rn.AND.NINT(masktr(i))==0).OR.    &
+          (itr==id_rn.AND.NINT(masktr(i))==1.AND.lat(i)>70.)) THEN
         zx_trs(i) = 0.
         local_trs(i) = 0.
@@ -241 +241 @@
 !--------------------------------------------
 
-     IF (itr.eq.id_rn.AND.NINT(masktr(i)).EQ.0) THEN
+     IF (itr==id_rn.AND.NINT(masktr(i))==0) THEN
         zx_trs(i) = 0.
         local_trs(i) = 0.