Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/misc/juldate.F

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

LMDZ6/branches/Amaury_dev/libf/misc/juldate.F

@@ -18 +18 @@
             year=dble(ian)
             rmon=dble(imoi)
-        if (imoi .le. 2) then
+        if (imoi <= 2) then
             year=year-1.
             rmon=rmon+12.
         endif
         cf=year+(rmon/100.)+(ojou/10000.)
-        if (cf .ge. 1582.1015) then
+        if (cf >= 1582.1015) then
             a=int(year/100)
             b=2-a+int(a/4)