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

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

@@ -242 +242 @@
 
 
-      IF (pente_max.gt.-1.e-5) THEN
+      IF (pente_max>-1.e-5) THEN
 c     IF (pente_max.gt.10) THEN
 
@@ -282 +282 @@
      ,         cvmgp(dxqu(ij-1)+dxqu(ij),0.,dxqu(ij-1)*dxqu(ij))
 #else
-               IF(dxqu(ij-1)*dxqu(ij).gt.0) THEN
+               IF(dxqu(ij-1)*dxqu(ij)>0) THEN
                   dxq(ij,l)=dxqu(ij-1)+dxqu(ij)
                ELSE
@@ -312 +312 @@
                zz(ij)=dxqu(ij-1)*dxqu(ij)
                zz(ij)=zz(ij)+zz(ij)
-               IF(zz(ij).gt.0) THEN
+               IF(zz(ij)>0) THEN
                   dxq(ij,l)=zz(ij)/(dxqu(ij-1)+dxqu(ij))
                ELSE
@@ -362 +362 @@
       DO l=1,llm
        DO ij=iip2,ip1jm-1
-          IF (u_m(ij,l).gt.0.) THEN
+          IF (u_m(ij,l)>0.) THEN
              zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l,iq)
              u_mq(ij,l)=u_m(ij,l)*
@@ -380 +380 @@
       DO l=1,llm
          DO ij=iip2,ip1jm-1
-            IF(zdum(ij,l).lt.0) THEN
+            IF(zdum(ij,l)<0) THEN
                iadvplus(ij,l)=1
                u_mq(ij,l)=0.
@@ -411 +411 @@
       ENDDO
 
-      IF(n0.gt.0) THEN
+      IF(n0>0) THEN
 ccc      PRINT*,'Nombre de points pour lesquels on advect plus que le'
 ccc     &       ,'contenu de la maille : ',n0
 
          DO l=1,llm
-            IF(nl(l).gt.0) THEN
+            IF(nl(l)>0) THEN
                iju=0
 c   indicage des mailles concernees par le traitement special
                DO ij=iip2,ip1jm
-                  IF(iadvplus(ij,l).eq.1.and.mod(ij,iip1).ne.0) THEN
+                  IF(iadvplus(ij,l)==1.and.mod(ij,iip1)/=0) THEN
                      iju=iju+1
                      indu(iju)=ij
@@ -434 +434 @@
                   zu_m=u_m(ij,l)
                   u_mq(ij,l)=0.
-                  IF(zu_m.gt.0.) THEN
+                  IF(zu_m>0.) THEN
                      ijq=ij
                      i=ijq-(j-1)*iip1
 c   accumulation pour les mailles completements advectees
-                     do while(zu_m.gt.masse(ijq,l,iq))
+                     do while(zu_m>masse(ijq,l,iq))
                         u_mq(ij,l)=u_mq(ij,l)+q(ijq,l,iq)
      &                          *masse(ijq,l,iq)
@@ -453 +453 @@
                      i=ijq-(j-1)*iip1
 c   accumulation pour les mailles completements advectees
-                     do while(-zu_m.gt.masse(ijq,l,iq))
+                     do while(-zu_m>masse(ijq,l,iq))
                         u_mq(ij,l)=u_mq(ij,l)-q(ijq,l,iq)
      &                          *masse(ijq,l,iq)
@@ -681 +681 @@
       fs=1.
       DO ij=1,iim
-         IF(pente_max*adyqv(ij).lt.abs(dyq(ij,l))) THEN
+         IF(pente_max*adyqv(ij)<abs(dyq(ij,l))) THEN
             fn=min(pente_max*adyqv(ij)/abs(dyq(ij,l)),fn)
          ENDIF
-      IF(pente_max*adyqv(ij+ip1jm-iip1).lt.abs(dyq(ij+ip1jm,l))) THEN
+      IF(pente_max*adyqv(ij+ip1jm-iip1)<abs(dyq(ij+ip1jm,l))) THEN
          fs=min(pente_max*adyqv(ij+ip1jm-iip1)/abs(dyq(ij+ip1jm,l)),fs)
          ENDIF
@@ -763 +763 @@
 
       DO ij=iip2,ip1jm
-         IF(dyqv(ij)*dyqv(ij-iip1).gt.0.) THEN
+         IF(dyqv(ij)*dyqv(ij-iip1)>0.) THEN
             dyq(ij,l)=sign(min(abs(dyq(ij,l)),dyqmax(ij)),dyq(ij,l))
          ELSE
@@ -774 +774 @@
       DO l=1,llm
        DO ij=1,ip1jm
-         IF( masse_adv_v(ij,l).GT.0. ) THEN
+         IF( masse_adv_v(ij,l)>0. ) THEN
            qbyv(ij,l)= MIN( qsat(ij+iip1,l), q(ij+iip1,l,iq )  +
      ,      dyq(ij+iip1,l)*0.5*(1.-masse_adv_v(ij,l)