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

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

@@ -78 +78 @@
 !****************************************************************************************
 ! Read and interpolate sulfate
-  IF ( flag_aerosol .EQ. 1 .OR. &
-       flag_aerosol .EQ. 6 ) THEN 
+  IF ( flag_aerosol == 1 .OR. &
+       flag_aerosol == 6 ) THEN
 
      CALL readaerosol_interp(id_ASSO4M_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sulfate, sulfate_pi,loadso4)
@@ -88 +88 @@
 
 ! Read and interpolate bcsol and bcins
-  IF ( flag_aerosol .EQ. 2 .OR. &
-       flag_aerosol .EQ. 6 ) THEN 
+  IF ( flag_aerosol == 2 .OR. &
+       flag_aerosol == 6 ) THEN
 
      ! Get bc aerosol distribution 
@@ -103 +103 @@
 
 ! Read and interpolate pomsol and pomins
-  IF ( flag_aerosol .EQ. 3 .OR. &
-       flag_aerosol .EQ. 6 ) THEN
+  IF ( flag_aerosol == 3 .OR. &
+       flag_aerosol == 6 ) THEN
 
      CALL readaerosol_interp(id_ASPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp3)
@@ -117 +117 @@
 
 ! Read and interpolate csssm, ssssm, assssm
-  IF (flag_aerosol .EQ. 4 .OR. &
-      flag_aerosol .EQ. 6 ) THEN 
+  IF (flag_aerosol == 4 .OR. &
+      flag_aerosol == 6 ) THEN
 
       CALL readaerosol_interp(id_SSSSM_phy ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sssupco, sssupco_pi,  load_tmp5) 
@@ -132 +132 @@
 
 ! Read and interpolate cidustm
-  IF (flag_aerosol .EQ. 5 .OR.  &
-      flag_aerosol .EQ. 6 ) THEN 
+  IF (flag_aerosol == 5 .OR.  &
+      flag_aerosol == 6 ) THEN
 
       CALL readaerosol_interp(id_CIDUSTM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, cidust, cidust_pi, loaddust)