Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/paramlmdz_phy_mod.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/paramlmdz_phy_mod.F90 (modified) (1 diff)

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

@@ -60 +60 @@
 !
        CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon_glo,zx_lon)
-       IF (nbp_lon.GT.1) THEN
+       IF (nbp_lon>1) THEN
        DO i = 1, nbp_lon
          zx_lon(i,1) = rlon_glo(i+1)