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

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.F

@@ -279 +279 @@
 C     ===================================
 C
-      IF ( (idiag2.gt.0) .and. (pas(idiag2) .ne. 0) ) THEN
+      IF ( (idiag2>0) .and. (pas(idiag2) /= 0) ) THEN
         d_h_vcol  = (h_vcol_tot - h_vcol_pre(idiag2) )/dtime
         d_h_dair = (h_dair_tot- h_dair_pre(idiag2))/dtime
@@ -303 +303 @@
       ENDIF 
 C
-      IF (iprt.ge.2) THEN
+      IF (iprt>=2) THEN
         WRITE(6,9000) tit,pas(idiag),d_qt,d_qw,d_ql,d_qs
  9000   format('Dyn3d. Watter Mass Budget (kg/m2/s)',A15