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

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

@@ -94 +94 @@
   modname='splaeropt_5wv_rrtm'
 
-  IF (naero.GT.naero_tot) THEN 
+  IF (naero>naero_tot) THEN
     CALL abort_physic(modname,'Too many aerosol types',1)
   ENDIF
@@ -106 +106 @@
       rh(i,k)=MIN(RHcl(i,k)*100.,RH_MAX)
       RH_num(i,k) = INT( rh(i,k)/10. + 1.)
-      IF (rh(i,k).GT.85.) RH_num(i,k)=10
-      IF (rh(i,k).GT.90.) RH_num(i,k)=11
+      IF (rh(i,k)>85.) RH_num(i,k)=10
+      IF (rh(i,k)>90.) RH_num(i,k)=11
       delta(i,k)=(rh(i,k)-RH_tab(RH_num(i,k)))*fact_RH(RH_num(i,k))
     ENDDO
@@ -128 +128 @@
 
       !--only 550 and 865 nm are used
-      IF (la.NE.la550.AND.la.NE.la865) CYCLE
+      IF (la/=la550.AND.la/=la865) CYCLE
 
       IF (soluble) THEN  !--soluble aerosol with RH dependence