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

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

@@ -98 +98 @@
 
 !!$        IF (zri(i) .ge. 0.) THEN      ! situation stable
-     IF (zri(i) .GT. 0.) THEN      ! situation stable
+     IF (zri(i) > 0.) THEN      ! situation stable
         zri(i) = MIN(20.,zri(i))
         IF (.NOT.zxli) THEN
@@ -108 +108 @@
 !!$ PB           zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH
            zcfh1(i) = f_cdrag_ter * zcdn(i) * FRIH
-           IF(nsrf.EQ.is_oce) zcfh1(i) = f_cdrag_oce * zcdn(i) * FRIH
+           IF(nsrf==is_oce) zcfh1(i) = f_cdrag_oce * zcdn(i) * FRIH
 !!$ PB
            pcfm(i) = zcfm1(i)
@@ -132 +132 @@
 ! cdrah sur l'ocean cf. Miller et al. (1992) - only active when gustiness parameterization is not active
            zcr = (0.0016/(zcdn(i)*SQRT(zdu2)))*ABS(ztvd-ztsolv)**(1./3.)
-           IF(nsrf.EQ.is_oce) pcfh(i) =f_cdrag_oce* zcdn(i)*(1.0+zcr**1.25)**(1./1.25)
+           IF(nsrf==is_oce) pcfh(i) =f_cdrag_oce* zcdn(i)*(1.0+zcr**1.25)**(1./1.25)
         ENDIF
      ENDIF