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

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

@@ -65 +65 @@
       DO k = 1, llm
         DO i = 1, ip1jmp1
-          if (seuil_liq - q(i,k,iq_liq) .gt. 0.d0 ) then
+          if (seuil_liq - q(i,k,iq_liq) > 0.d0 ) then
 
             if (niso > 0) zx_defau_diag(i,k,2)=AMAX1
@@ -82 +82 @@
 ccc      zx_abc = dpres(k) / dpres(k-1)
         DO i = 1, ip1jmp1
-          if ( seuil_vap - q(i,k,iq_vap) .gt. 0.d0 ) then
+          if ( seuil_vap - q(i,k,iq_vap) > 0.d0 ) then
 
             if (niso > 0) zx_defau_diag(i,k,1)
@@ -104 +104 @@
       ENDDO
       pompe = SSUM(ip1jmp1,zx_pump,1)
-      IF (imprim.LE.500 .AND. pompe.GT.0.0) THEN
+      IF (imprim<=500 .AND. pompe>0.0) THEN
          WRITE(6,'(1x,"ATT!:on pompe de l eau au sol",e15.7)') pompe
          DO i = 1, ip1jmp1
-            IF (zx_pump(i).GT.0.0) THEN
+            IF (zx_pump(i)>0.0) THEN
                imprim = imprim + 1
                PRINT*,'QMINIMUM:  en ',i,zx_pump(i)
@@ -124 +124 @@
       ! génant
       DO i = 1,ip1jmp1
-        if (zx_pump(i).gt.0.0) then
+        if (zx_pump(i)>0.0) then
           q_follow(i,1,1)=q_follow(i,1,1)+zx_pump(i)
         endif !if (zx_pump(i).gt.0.0) then
@@ -133 +133 @@
       do k=2,llm
         DO i = 1,ip1jmp1
-          if (zx_defau_diag(i,k,1).gt.0.0) then             
+          if (zx_defau_diag(i,k,1)>0.0) then
               ! on ajoute la vapeur en k              
               do ixt=1,ntiso
@@ -165 +165 @@
         do k=1,llm
         DO i = 1,ip1jmp1
-          if (zx_defau_diag(i,k,2).gt.0.0) then
+          if (zx_defau_diag(i,k,2)>0.0) then
 
               ! on ajoute eau liquide en k en k