Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

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/dyn1d/replay1d.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/replay1d.F90

@@ -114 +114 @@
       call getin_dump
 !
-      if (ierr .eq. 0) then
+      if (ierr == 0) then
         write(*,*) 'Everything is cool'
       else
@@ -142 +142 @@
 !   -------
  
-      IF(ngrid.NE.2+(jm-2)*(im-1).AND.ngrid.NE.1)                          &
+      IF(ngrid/=2+(jm-2)*(im-1).AND.ngrid/=1)                          &
      &    STOP 'probleme de dim'
 !   traitement des poles