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

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

@@ -121 +121 @@
 
   !Config  Key  = prt_level
-  !Config  Desc = niveau d'impressions de débogage
+  !Config  Desc = niveau d'impressions de d�bogage
   !Config  Def  = 0
-  !Config  Help = Niveau d'impression pour le débogage
+  !Config  Help = Niveau d'impression pour le d�bogage
   !Config         (0 = minimum d'impression)
   prt_level = 0
@@ -458 +458 @@
      CALL getin('clat',clatt)
 
-     IF( ABS(clat - clatt).GE. 0.001 )  THEN
+     IF( ABS(clat - clatt)>= 0.001 )  THEN
         write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', &
              ' est differente de celle lue sur le fichier  start '
@@ -472 +472 @@
      CALL getin('grossismx',grossismxx)
 
-     IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
+     IF( ABS(grossismx - grossismxx)>= 0.001 )  THEN
         write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', &
              'run.def est differente de celle lue sur le fichier  start '
@@ -486 +486 @@
      CALL getin('grossismy',grossismyy)
 
-     IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
+     IF( ABS(grossismy - grossismyy)>= 0.001 )  THEN
         write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', &
              'run.def est differente de celle lue sur le fichier  start '
@@ -492 +492 @@
      ENDIF
 
-     IF( grossismx.LT.1. )  THEN
+     IF( grossismx<1. )  THEN
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
@@ -500 +500 @@
      ENDIF
 
-     IF( grossismy.LT.1. )  THEN
+     IF( grossismy<1. )  THEN
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
@@ -545 +545 @@
 
      IF( fxyhypb )  THEN
-        IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
+        IF( ABS(dzoomx - dzoomxx)>= 0.001 )  THEN
            write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
@@ -561 +561 @@
 
      IF( fxyhypb )  THEN
-        IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
+        IF( ABS(dzoomy - dzoomyy)>= 0.001 )  THEN
            write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
@@ -576 +576 @@
 
      IF( fxyhypb )  THEN
-        IF( ABS(taux - tauxx).GE. 0.001 )  THEN
+        IF( ABS(taux - tauxx)>= 0.001 )  THEN
            write(lunout,*)'conf_gcm: La valeur de taux passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
@@ -591 +591 @@
 
      IF( fxyhypb )  THEN
-        IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
+        IF( ABS(tauy - tauyy)>= 0.001 )  THEN
            write(lunout,*)'conf_gcm: La valeur de tauy passee par ', &
                 'run.def est differente de celle lue sur le fichier  start '
@@ -779 +779 @@
      CALL getin('grossismy',grossismy)
 
-     IF( grossismx.LT.1. )  THEN
+     IF( grossismx<1. )  THEN
         write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismx < 1 . *** '
         CALL abort_gcm("conf_gcm","stopped",1)
@@ -786 +786 @@
      ENDIF
 
-     IF( grossismy.LT.1. )  THEN
+     IF( grossismy<1. )  THEN
         write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
         CALL abort_gcm("conf_gcm","stopped",1)
@@ -921 +921 @@
 
      !Config  Key  = use_mpi_alloc
-     !Config  Desc = Utilise un buffer MPI en m�moire globale
+     !Config  Desc = Utilise un buffer MPI en m�moire globale
      !Config  Def  = false
      !Config  Help = permet d'activer l'utilisation d'un buffer MPI
-     !Config         en m�moire globale a l'aide de la fonction MPI_ALLOC.
-     !Config         Cela peut am�liorer la bande passante des transferts MPI
+     !Config         en m�moire globale a l'aide de la fonction MPI_ALLOC.
+     !Config         Cela peut am�liorer la bande passante des transferts MPI
      !Config         d'un facteur 2  
      use_mpi_alloc=.FALSE.
@@ -933 +933 @@
      !Config  Desc = activation de la version strato
      !Config  Def  = .FALSE.
-     !Config  Help = active la version stratosphérique de LMDZ de F. Lott
+     !Config  Help = active la version stratosph�rique de LMDZ de F. Lott
 
      ok_strato=.FALSE.