Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.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/dyn3d_common/exner_hyb_m.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90

@@ -58 +58 @@
     if (firstcall) then
        ! sanity checks for Shallow Water case (1 vertical layer)
-       if (llm.eq.1) then
-          if (kappa.ne.1) then
+       if (llm==1) then
+          if (kappa/=1) then
              call abort_gcm(modname, &
                   "kappa!=1 , but running in Shallow Water mode!!",42)
           endif
-          if (cpp.ne.r) then
+          if (cpp/=r) then
              call abort_gcm(modname, &
                   "cpp!=r , but running in Shallow Water mode!!",42)
@@ -73 +73 @@
 
     ! Specific behaviour for Shallow Water (1 vertical layer) case:
-    if (llm.eq.1) then
+    if (llm==1) then
 
        ! Compute pks(:),pk(:),pkf(:)