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

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/phylmd/cv3_buoy.F90 (modified) (1 diff)

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

@@ -142 +142 @@
 !CR:Correction of buoy for what comes next
 !keep flag or to modify in all cases?
-  IF (iflag_mix_adiab.eq.1) THEN
+  IF (iflag_mix_adiab==1) THEN
   DO k = 1, nl 
     DO il = 1, ncum
-       IF ((k>=kmx(il)) .AND. (k<=inb(il)) .AND. (buoy(il,k).lt.0.)) THEN
+       IF ((k>=kmx(il)) .AND. (k<=inb(il)) .AND. (buoy(il,k)<0.)) THEN
           buoy(il,k)=buoy(il,k-1)
        END IF