Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/finemission.F

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/finemission.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/finemission.F

@@ -65 +65 @@
 
       DO i=1,klon
-         IF (iregion_ind(i).GT.0) THEN
+         IF (iregion_ind(i)>0) THEN
        IF(id_fine>0)    source_tr(i,id_fine)=source_tr(i,id_fine)+
      .                (scale_param_ff(iregion_ind(i))*lmt_bcff(i)+     !g/m2/s
@@ -81 +81 @@
      .                     *1.e4*1.e3
          ENDIF
-         IF (iregion_bb(i).GT.0) THEN
+         IF (iregion_bb(i)>0) THEN
        IF(id_fine>0)    source_tr(i,id_fine)=source_tr(i,id_fine)+
      .                (scale_param_bb(iregion_bb(i))*lmt_bcbb_l(i)+   !g/m2/s
@@ -132 +132 @@
           zzdz=zalt(i,kmaxbc+1)-zalt(i,kminbc)
 c
-         IF (iregion_bb(i) .GT.0) THEN
+         IF (iregion_bb(i) >0) THEN
         IF(id_fine>0)   tr_seri(i,k,id_fine)=tr_seri(i,k,id_fine)+
      .              (scale_param_bb(iregion_bb(i))*lmt_bcbb_h(i)+