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

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

@@ -507 +507 @@
   dqsatsrf_ins(1:knon) = (beta(1:knon)/QQ_b(1:knon))*dTs_ins(1:knon)
 !
-   IF (prt_level .Ge. 10) THEN
+   IF (prt_level >= 10) THEN
       print *,'wx_pbl_merge, tau         ', tau
       print *,'wx_pbl_merge, AcoefT0     ', AcoefT0
@@ -539 +539 @@
    ENDDO ! j = 1,knon
    
-   IF (prt_level .Ge. 10) THEN
+   IF (prt_level >= 10) THEN
    print *,'wx_pbl_dts AAAA BcoefQ, BcoefQ0, sigw ', &
                             BcoefQ, BcoefQ0, sigw
@@ -625 +625 @@
 !      print *,' AAAA wx_pbl_split, C_p(j), qsat0(j), Ts0(j) : ', C_p(:), qsat0(:), Ts0(:)
 !
-   IF (iflag_split .EQ. 2 .AND. nsrf .NE. is_oce) THEN
+   IF (iflag_split == 2 .AND. nsrf /= is_oce) THEN
 !
 !   Delta_tsurf and  Delta_qsurf computation