Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomhook.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/rrtm/yomhook.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/yomhook.F90

@@ -18 +18 @@
 INTEGER(KIND=JPIM),        INTENT(IN) :: KSWITCH
 REAL(KIND=JPRB),        INTENT(INOUT) :: PKEY
-IF (KSWITCH.EQ.0) THEN
+IF (KSWITCH==0) THEN
 !  PRINT *,'--> ON ENTRE DANS: ',CDNAME
-ELSE IF (KSWITCH.EQ.1) THEN
+ELSE IF (KSWITCH==1) THEN
 !  PRINT *,'    ON SORT  DE  : ',CDNAME
 ENDIF