Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/reevap.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/reevap.F90 (modified) (2 diffs)

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

@@ -27 +27 @@
     DO k = 1, klev  ! re-evaporation de l'eau liquide nuageuse
        DO i = 1, klon
-        if (fl_cor_ebil .GT. 0) then
+        if (fl_cor_ebil > 0) then
           zlvdcp=RLVTT/RCPD/(1.0+RVTMP2*(q_seri(i,k)+ql_seri(i,k)+qs_seri(i,k)))
           zlsdcp=RLSTT/RCPD/(1.0+RVTMP2*(q_seri(i,k)+ql_seri(i,k)+qs_seri(i,k)))
@@ -37 +37 @@
           zlsdcp=RLSTT/RCPD/(1.0+RVTMP2*q_seri(i,k))
         end if
-          IF (iflag_ice_thermo .EQ. 0) THEN
+          IF (iflag_ice_thermo == 0) THEN
              zlsdcp=zlvdcp
           ENDIF
           !>jyg
 
-          IF (iflag_ice_thermo.eq.0) THEN   
+          IF (iflag_ice_thermo==0) THEN
              !pas necessaire a priori