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

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/parasol.F90

@@ -97 +97 @@
 
     ! Relative fraction of the opt. thick due to liquid or ice clouds
-    WHERE (tautot_S(1:npoints) .gt. 0.)
+    WHERE (tautot_S(1:npoints) > 0.)
        frac_taucol_liq(1:npoints) = tautot_S_liq(1:npoints) / tautot_S(1:npoints)
        frac_taucol_ice(1:npoints) = tautot_S_ice(1:npoints) / tautot_S(1:npoints)
@@ -118 +118 @@
     DO it=1,PARASOL_NREFL
        DO ny=1,PARASOL_NTAU-1
-          WHERE (tautot_S(1:npoints) .ge. PARASOL_TAU(ny).and. &
-                 tautot_S(1:npoints) .le. PARASOL_TAU(ny+1))
+          WHERE (tautot_S(1:npoints) >= PARASOL_TAU(ny).and. &
+                 tautot_S(1:npoints) <= PARASOL_TAU(ny+1))
              rlumA_mod(1:npoints,it) = aA(it,ny)*tautot_S(1:npoints) + bA(it,ny)
              rlumB_mod(1:npoints,it) = aB(it,ny)*tautot_S(1:npoints) + bB(it,ny)