Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/infotrac.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/infotrac.F90 (modified) (1 diff)

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

@@ -175 +175 @@
 
    lerr=strParse(type_trac, '|', types_trac, n=nt)
-   IF (nt .GT. 1) THEN
-      IF (nt .GT. 2) CALL abort_gcm(modname, 'you need to modify type_trac, this version is not supported by lmdz', 1)
-      if (nt .EQ. 2) type_trac=types_trac(2)
+   IF (nt > 1) THEN
+      IF (nt > 2) CALL abort_gcm(modname, 'you need to modify type_trac, this version is not supported by lmdz', 1)
+      if (nt == 2) type_trac=types_trac(2)
    ENDIF