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

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

@@ -175 +175 @@
   reice_pi = 0.
 
-  IF (iflag_t_glace.EQ.0) THEN
+  IF (iflag_t_glace==0) THEN
     DO k = 1, klev
       DO i = 1, klon
@@ -245 +245 @@
     !--flag_aerosol=7 => MACv2SP climatology 
     !--in this case there is an enhancement factor
-    IF (flag_aerosol .EQ. 7) THEN 
+    IF (flag_aerosol == 7) THEN
 
       !--present-day
@@ -300 +300 @@
           zfiwp_var = 1000.*icefrac_optics(i, k)*radocond(i, k)/pclc(i, k)*rhodz(i, k)
           ! Calculation of ice cloud effective radius in micron
-          IF (iflag_rei .EQ. 1) THEN
+          IF (iflag_rei == 1) THEN
             ! when we account for precipitation in the radiation scheme,
             ! It is recommended to use the rei formula from Sun and Rikkus 1999 with a revision
@@ -407 +407 @@
 
 
-        IF (iflag_rei .GT. 0) THEN
+        IF (iflag_rei > 0) THEN
 
             ! when we account for precipitation in the radiation scheme,
@@ -600 +600 @@
       reffclwtop(i) = 0.
       cldncl(i) = 0.
-      IF (novlp.EQ.3 .OR. novlp.EQ.1) tcc(i) = 1.
-      IF (novlp.EQ.2) tcc(i) = 0.
+      IF (novlp==3 .OR. novlp==1) tcc(i) = 1.
+      IF (novlp==2) tcc(i) = 0.
     ENDDO
 
@@ -612 +612 @@
         IF (pcltau(i,k)>thres_tau .AND. pclc(i,k)>thres_neb) THEN
 
-          IF (novlp.EQ.2) THEN
+          IF (novlp==2) THEN
             IF (first) THEN
               WRITE (*, *) 'Hypothese de recouvrement: MAXIMUM'
@@ -621 +621 @@
           ENDIF
 
-          IF (novlp.EQ.3) THEN
+          IF (novlp==3) THEN
             IF (first) THEN
               WRITE (*, *) 'Hypothese de recouvrement: RANDOM'
@@ -630 +630 @@
           ENDIF
 
-          IF (novlp.EQ.1) THEN
+          IF (novlp==1) THEN
             IF (first) THEN
               WRITE (*, *) 'Hypothese de recouvrement: MAXIMUM_ &
@@ -655 +655 @@
       ENDDO ! loop over k
 
-      IF (novlp.EQ.3 .OR. novlp.EQ.1) tcc(i) = 1. - tcc(i)
+      IF (novlp==3 .OR. novlp==1) tcc(i) = 1. - tcc(i)
 
     ENDDO ! loop over i