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

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

@@ -97 +97 @@
 
 !      if  ( (height(i,jv) .gt. yzlay(i,k)) .AND. (height(i,jv) .gt. 0.1) .and. LAI(i,jv).gt.0. ) then                     
-      if  ( (height(i,jv) .gt. yzlay(i,k)) .AND. (height(i,jv) .gt. 0.1) ) then                     
+      if  ( (height(i,jv) > yzlay(i,k)) .AND. (height(i,jv) > 0.1) ) then
 !FC attention veut on le test sur le LAI ?
-         if (ifl_pbltree.eq.1) then
+         if (ifl_pbltree==1) then
       drag_pro(i,k)= drag_pro(i,k)+ &
       veget(i,jv)
-          elseif (ifl_pbltree.eq.2) then
+          elseif (ifl_pbltree==2) then
       drag_pro(i,k)= drag_pro(i,k)+ &
       6*LAI(i,jv)*veget(i,jv)*( yzlay(i,k)*(height(i,jv)-yzlay(i,k))/(height(i,jv)*height(i,jv)+ 0.01))
-          elseif (ifl_pbltree.eq.3) then
+          elseif (ifl_pbltree==3) then
       drag_pro(i,k)= drag_pro(i,k)+ &
       veget(i,jv)*( yzlay(i,k)*(height(i,jv)-yzlay(i,k))/(height(i,jv)*height(i,jv)+ 0.01))
-          elseif (ifl_pbltree.eq.0) then
+          elseif (ifl_pbltree==0) then
           drag_pro(i,k)=0.0
            endif