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

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratemit.F90

@@ -74 +74 @@
        theta_max = min(xlat(i)+dlat_loc,latmax)
                 
-       IF (  xlat(i).GE.latmin-dlat_loc .AND. &
-         &   xlat(i).LT.latmax+dlat_loc .AND. &
-         &   xlon(i).GE.lonmin-dlon .AND. &
-         &   xlon(i).LT.lonmax+dlon ) THEN
+       IF (  xlat(i)>=latmin-dlat_loc .AND. &
+         &   xlat(i)<latmax+dlat_loc .AND. &
+         &   xlon(i)>=lonmin-dlon .AND. &
+         &   xlon(i)<lonmax+dlon ) THEN
                    !
           WRITE(*,*) 'coordinates of volcanic injection point=',&
@@ -95 +95 @@
           CALL STRATDISTRIB(altLMDz,altemiss,sigma_alt,f_lay_emiss)
           
-          IF (flag_emit.EQ.3) then
+          IF (flag_emit==3) then
              theta=(sin(theta_max/180.*RPI)-sin(theta_min/180.*RPI))/ &
                & (sin(xlat_max_sai/180.*RPI)-sin(xlat_min_sai/180.*RPI))
@@ -122 +122 @@
              IF(emission < 1.E-34) emission = 0.0
              
-             IF (flh2o.EQ.0) THEN
+             IF (flh2o==0) THEN
                 IF(flag_verbose_strataer) WRITE(*,*) 'IN STRATEMIT: tr_ser avant/apres',&
                   &  'i= ',i,'k= ',k, 'flh2o= ',flh2o, &
@@ -129 +129 @@
               
                 tr_seri(i,k,id_spec)=tr_seri(i,k,id_spec)+emission*pdtphys
-                IF (id_species_total.NE.0) THEN
+                IF (id_species_total/=0) THEN
                    tr_seri(i,k,id_species_total)=tr_seri(i,k,id_species_total)+emission*pdtphys
                 ENDIF
-             ELSE IF(flh2o.EQ.1) THEN
+             ELSE IF(flh2o==1) THEN
                 d_q_emiss(i,k)=emission*pdtphys
                 IF(d_q_emiss(i,k) > 1.E34) THEN