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

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/mod_llnl_stats.F90

@@ -119 +119 @@
        do j=Nlevels,1,-1 !top->surf
         sc_ratio = beta_tot(pr,i,j)/beta_mol(pr,j)
-        if ((sc_ratio .le. s_att) .and. (flag_sat .eq. 0)) flag_sat = j
-        if (Ze_tot(pr,i,j) .lt. -30.) then  !radar can't detect cloud
-         if ( (sc_ratio .gt. s_cld) .or. (flag_sat .eq. j) ) then  !lidar sense cloud
+        if ((sc_ratio <= s_att) .and. (flag_sat == 0)) flag_sat = j
+        if (Ze_tot(pr,i,j) < -30.) then  !radar can't detect cloud
+         if ( (sc_ratio > s_cld) .or. (flag_sat == j) ) then  !lidar sense cloud
             lidar_only_freq_cloud(pr,j)=lidar_only_freq_cloud(pr,j)+1. !top->surf
             flag_cld=1
@@ -129 +129 @@
         endif
        enddo !levels
-       if (flag_cld .eq. 1) tcc(pr)=tcc(pr)+1.
+       if (flag_cld == 1) tcc(pr)=tcc(pr)+1.
      enddo !columns
    enddo !points