Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/climb_hq_mod.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/phylmdiso/climb_hq_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/climb_hq_mod.F90

@@ -376 +376 @@
 !!! jyg le 07/02/2012
 !!jyg       IF (mod(iflag_pbl_split,2) .eq.1) THEN
-       IF (mod(iflag_pbl_split,10) .ge.1) THEN
+       IF (mod(iflag_pbl_split,10) >=1) THEN
 !!! nrlmd le 02/05/2011
     DO k= 1, klev
@@ -391 +391 @@
         enddo   
 #endif
-          IF (k.eq.1) THEN
+          IF (k==1) THEN
             gama_h_out(i,k)  = 0.
             gama_q_out(i,k)  = 0.
@@ -600 +600 @@
 !!! jyg le 07/02/2012
 !!jyg       IF (mod(iflag_pbl_split,2) .eq.1) THEN
-       IF (mod(iflag_pbl_split,10) .ge.1) THEN
+       IF (mod(iflag_pbl_split,10) >=1) THEN
 !!! nrlmd le 02/05/2011
     DO i = 1, knon
@@ -627 +627 @@
       enddo    
 #endif
-          IF (k.gt.1) THEN
+          IF (k>1) THEN
             gamah(i,k)=gama_h_in(i,k)
             gamaq(i,k)=gama_q_in(i,k)