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

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/lsc_scav_orig.F90

@@ -177 +177 @@
   ENDDO
 
-    IF (it.gt.1) THEN                               !  aerosol   
+    IF (it>1) THEN                               !  aerosol
       frac_ev=frac_aer
     ELSE                                                !  gas
@@ -183 +183 @@
     ENDIF
 
-    IF(it.gt.1) then  ! aerosol
+    IF(it>1) then  ! aerosol
      DO k=1, klev
       DO i=1, klon 
@@ -203 +203 @@
 !  incloud scavenging
 !   if(inscav_fisrt) then 
-   if (iflag_lscav .eq. 4) then
+   if (iflag_lscav == 4) then
       beta=beta_fisrt(i,k)*rneb(i,k)
    else
@@ -219 +219 @@
 
 !  below-cloud impaction
-    IF(it.eq.1) then
+    IF(it==1) then
       d_tr_bcscav(i,k,it)=0.
     ELSE
@@ -236 +236 @@
       deltaP(i,k)=max(deltaP(i,k),0.)
 
-      if(flxr(i,k+1)+flxs(i,k+1).gt.1.e-16) then
+      if(flxr(i,k+1)+flxs(i,k+1)>1.e-16) then
        beta_ev(i,k)=deltaP(i,k)/(flxr(i,k+1)+flxs(i,k+1))
       else
@@ -246 +246 @@
 !jyg
       
-      if(abs(1-(1-frac_ev)*beta_ev(i,k)).gt.1.e-16) then
+      if(abs(1-(1-frac_ev)*beta_ev(i,k))>1.e-16) then
 ! remove tracers from precipitation owing to release by evaporation in his_dh
 !      dxev=frac_ev*beta_ev(i,k)*his_dh(i) *pdtime/(zrho(i,k)*zdz(i,k)) &