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

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

@@ -211 +211 @@
   SELECT CASE(nsw)
   CASE(2)
-    IF (JWL.LE.49) THEN       ! from 200  to 680 nm 
+    IF (JWL<=49) THEN       ! from 200  to 680 nm
      inu=1
     ELSE                      ! from 690  to 4000 nm
@@ -217 +217 @@
     ENDIF
   CASE(4)
-    IF (JWL.LE.49) THEN       ! from 200  to 680 nm 
+    IF (JWL<=49) THEN       ! from 200  to 680 nm
      inu=1
-    ELSE IF (JWL.LE.99) THEN  ! from 690  to 1180 nm
+    ELSE IF (JWL<=99) THEN  ! from 690  to 1180 nm
      inu=2
-    ELSE IF (JWL.LE.218) THEN ! from 1190 to 2370 nm
+    ELSE IF (JWL<=218) THEN ! from 1190 to 2370 nm
      inu=3
     ELSE                      ! from 2380 to 4000 nm
@@ -227 +227 @@
     ENDIF
   CASE(6)
-    IF (JWL.LE.5) THEN        ! from 200  to 240 nm 
+    IF (JWL<=5) THEN        ! from 200  to 240 nm
      inu=1
-    ELSE IF (JWL.LE.24) THEN  ! from 250  to 430 nm
+    ELSE IF (JWL<=24) THEN  ! from 250  to 430 nm
      inu=2
-    ELSE IF (JWL.LE.49) THEN  ! from 440  to 680 nm
+    ELSE IF (JWL<=49) THEN  ! from 440  to 680 nm
      inu=3
-    ELSE IF (JWL.LE.99) THEN  ! from 690  to 1180 nm
+    ELSE IF (JWL<=99) THEN  ! from 690  to 1180 nm
      inu=4
-    ELSE IF (JWL.LE.218) THEN ! from 1190 to 2370 nm
+    ELSE IF (JWL<=218) THEN ! from 1190 to 2370 nm
      inu=5
     ELSE                      ! from 2380 to 4000 nm