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

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

@@ -197 +197 @@
       
       DO i=1,klon   
-         if (maskd(i).gt.0) then 
+         if (maskd(i)>0) then
       IF(id_fine>0)    source_tr(i,id_fine)=
      . scale_param_dustacc(iregion_dust(i))*