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

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

@@ -419 +419 @@
      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 '
@@ -433 +433 @@
      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 '
@@ -447 +447 @@
      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 '
@@ -453 +453 @@
      ENDIF
 
-     IF( grossismx.LT.1. )  THEN
+     IF( grossismx<1. )  THEN
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
@@ -461 +461 @@
      ENDIF
 
-     IF( grossismy.LT.1. )  THEN
+     IF( grossismy<1. )  THEN
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
@@ -506 +506 @@
 
      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 '
@@ -522 +522 @@
 
      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 '
@@ -537 +537 @@
 
      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 '
@@ -552 +552 @@
 
      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 '
@@ -715 +715 @@
      CALL getin('grossismy',grossismy)
 
-     IF( grossismx.LT.1. )  THEN
+     IF( grossismx<1. )  THEN
         write(lunout,*) &
              'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
@@ -723 +723 @@
      ENDIF
 
-     IF( grossismy.LT.1. )  THEN
+     IF( grossismy<1. )  THEN
         write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
         CALL abort_gcm("conf_gcm","stopped",1)