Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gcm.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/dyn3dmem/gcm.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gcm.F90

@@ -222 +222 @@
      ! we still need to run iniacademic to initialize some
      ! constants & fields, if we run the 'newtonian' or 'SW' cases:
-     if (iflag_phys.ne.1) then
+     if (iflag_phys/=1) then
         CALL iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0)
      endif
@@ -254 +254 @@
   !  on recalcule eventuellement le pas de temps
 
-  IF(MOD(day_step,iperiod).NE.0) THEN
+  IF(MOD(day_step,iperiod)/=0) THEN
      abort_message =  &
           'Il faut choisir un nb de pas par jour multiple de iperiod'
@@ -260 +260 @@
   ENDIF
 
-  IF(MOD(day_step,iphysiq).NE.0) THEN
+  IF(MOD(day_step,iphysiq)/=0) THEN
      abort_message =  &
           'Il faut choisir un nb de pas par jour multiple de iphysiq'
@@ -267 +267 @@
 
   zdtvr    = daysec/REAL(day_step)
-  IF(dtvr.NE.zdtvr) THEN
+  IF(dtvr/=zdtvr) THEN
      WRITE(lunout,*) &
           'WARNING!!! changement de pas de temps',dtvr,'>',zdtvr
@@ -295 +295 @@
      write(lunout,*) &
           'GCM: On reinitialise a la date lue dans gcm.def'
-  ELSE IF (annee_ref .ne. anneeref .or. day_ref .ne. dayref) THEN
+  ELSE IF (annee_ref /= anneeref .or. day_ref /= dayref) THEN
      write(lunout,*) &
           'GCM: Attention les dates initiales lues dans le fichier'
@@ -353 +353 @@
 #endif
 
-  if (iflag_phys.eq.1) then
+  if (iflag_phys==1) then
      ! these initialisations have already been done (via iniacademic)
      ! if running in SW or Newtonian mode