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

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

@@ -74 +74 @@
 c     if (mode.eq.1.or.mode.eq.3) then
 c     if (mode.eq.1) then
-      if (mode.ge.1) then
+      if (mode>=1) then
         lati=2
         latf=jjm
@@ -187 +187 @@
 c      enddo
 CCC
-       if(mode.eq.2) then
+       if(mode==2) then
           do l=1,llm
             s0s=0.
@@ -247 +247 @@
       endif
 
-      if (mode.eq.4) then
+      if (mode==4) then
          do l=1,llm
             do i=1,iip1
@@ -261 +261 @@
        call advx( limit,.5*dtvr,pbaru,sm,s0,sx,sy,sz,lati,latf)
 c     call minmaxq(zq,1.e33,-1.e33,'avant advy     ')
-      if (mode.eq.4) then
+      if (mode==4) then
          do l=1,llm
             do i=1,iip1
@@ -282 +282 @@
        call limz(s0,sz,sm,pente_max)
        call advz( limit,dtvr,w,sm,s0,sx,sy,sz )
-      if (mode.eq.4) then
+      if (mode==4) then
          do l=1,llm
             do i=1,iip1
@@ -306 +306 @@
 
 c     call minmaxq(zq,1.e33,-1.e33,'avant advx     ')
-      if (mode.eq.4) then
+      if (mode==4) then
          do l=1,llm
             do i=1,iip1
@@ -346 +346 @@
 c Traitements specifiques au pole
 
-      if(mode.ge.1) then
+      if(mode>=1) then
       DO l=1,llm
 c   filtrages aux poles
@@ -361 +361 @@
             q( i,jjp1,llm+1-l,0)=qps
          enddo
-         if(mode.eq.3) then
+         if(mode==3) then
             dyn1=0.
             dys1=0.
@@ -382 +382 @@
             enddo
          endif
-         if(mode.eq.1) then
+         if(mode==1) then
 c   on filtre les valeurs au bord de la "grande maille pole"
             dyn1=0.
@@ -440 +440 @@
              DO j = 1,jjp1
               DO i = 1,iip1
-                IF (q(i,j,l,0).lt.0.)  THEN
+                IF (q(i,j,l,0)<0.)  THEN
 c                    PRINT*,'------------ BIP-----------' 
 c                    PRINT*,'Q0(',i,j,l,')=',q(i,j,l,0)
@@ -459 +459 @@
           do j=1,jjp1
            do i=1,iip1
-             if(q(i,j,l,0).lt.qmin)
+             if(q(i,j,l,0)<qmin)
      ,       print*,'apres pentes, s0(',i,',',j,',',l,')=',q(i,j,l,0)
            enddo