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

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

@@ -170 +170 @@
      lon_cen=(ATAN(TAN(tempo)*COS(incli))-duree_orb*tempo)*RADEG
      demi_larg=demi_larg_eq/COS(rlat(i)*DTOR)
-     IF (ABS(SIN(rlat(i)*DTOR)/SIN(incli)).GE.1.0) demi_larg=200.0
-     IF (rlat(i).GE.lat_fin.AND.rlat(i).LE.lat_debut) THEN 
-        IF (demi_larg.GE. 180.) THEN 
+     IF (ABS(SIN(rlat(i)*DTOR)/SIN(incli))>=1.0) demi_larg=200.0
+     IF (rlat(i)>=lat_fin.AND.rlat(i)<=lat_debut) THEN
+        IF (demi_larg>= 180.) THEN
            masque(i)=1
         ELSE  
@@ -178 +178 @@
            lon_east = MOD(lon0+lon_cen+demi_larg,      360.)
            zlon     = MOD(rlon(i)+360.,                360.)
-           IF (lon_west.LE.lon_east) THEN 
-              IF (zlon.GE.lon_west.AND.zlon.LE.lon_east) masque(i)=1
+           IF (lon_west<=lon_east) THEN
+              IF (zlon>=lon_west.AND.zlon<=lon_east) masque(i)=1
            ELSE               
-              IF (zlon.GE.lon_west.OR.zlon.LE.lon_east) masque(i)=1
+              IF (zlon>=lon_west.OR.zlon<=lon_east) masque(i)=1
            ENDIF
         ENDIF