Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/aeropt_spl.F

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/aeropt_spl.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/aeropt_spl.F

@@ -130 +130 @@
       rh=MIN(RHcl(i,k)*100.,RH_MAX)
       RH_num = INT( rh/10. + 1.)
-      IF (rh.gt.85.) RH_num=10
-      IF (rh.gt.90.) RH_num=11
+      IF (rh>85.) RH_num=10
+      IF (rh>90.) RH_num=11
 c      IF (rh.gt.40.) THEN 
 c          RH_num=5   ! Added by NHL temporarily