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

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

@@ -1038 +1038 @@
    hlim(1:ngrid)=0.
 
-   IF (nsrf .EQ. 1) THEN
+   IF (nsrf == 1) THEN
 
 ! coefficients 
@@ -1076 +1076 @@
         DO ig=1,ngrid
            winds(ig,k)=sqrt(u(ig,k)**2+v(ig,k)**2)
-           IF (zlev(ig,k) .LE. h_oro(ig)) THEN  ! sous l'orographie
+           IF (zlev(ig,k) <= h_oro(ig)) THEN  ! sous l'orographie
               l2strat= kapb*pbl_lmixmin_alpha*winds(ig,k)/sqrt(max(n2(ig,k),1.E-10))  ! si stratifi??, amplitude d'oscillation * kappab (voir Van de Wiel et al 2008)
               l2neutre=kap*zlev(ig,k)*h_oro(ig)/(kap*zlev(ig,k)+h_oro(ig))            ! Dans le cas neutre, formule de blackadar. tend asymptotiquement vers h
@@ -1083 +1083 @@
               l2(ig,k)=l2limit(ig)
                                       
-           ELSE IF (zlev(ig,k) .LE. hlim(ig)) THEN ! Si on est au dessus des montagnes, mais affect?? encore par elles
+           ELSE IF (zlev(ig,k) <= hlim(ig)) THEN ! Si on est au dessus des montagnes, mais affect?? encore par elles
 
       ! Au dessus des montagnes, on prend la l2limit au sommet des montagnes