Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.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/dyn3d/caladvtrac.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F

@@ -51 +51 @@
 c
 ! Earth-specific stuff for the first 2 tracers (water)
-      if (planet_type.eq."earth") then
+      if (planet_type=="earth") then
 C initialisation
 ! CRisi: il faut gérer tous les traceurs si on veut pouvoir faire des
@@ -70 +70 @@
 c
 
-      IF( iapptrac.EQ.iapp_tracvl ) THEN
-        if (planet_type.eq."earth") then
+      IF( iapptrac==iapp_tracvl ) THEN
+        if (planet_type=="earth") then
 ! Earth-specific treatment for the first 2 tracers (water)
 c
@@ -108 +108 @@
         endif ! of if (planet_type.eq."earth")
       ELSE
-        if (planet_type.eq."earth") then
+        if (planet_type=="earth") then
 ! Earth-specific treatment for the first 2 tracers (water)
           dq(:,:,1:nqtot)=0.