Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inidissip.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/inidissip.F90 (modified) (4 diffs)

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

@@ -76 +76 @@
   CALL minmax(iip1*jjp1,zh,zhmin,zhmax )
 
-  IF ( zhmin .GE. zhmax  )     THEN
+  IF ( zhmin >= zhmax  )     THEN
      write(lunout,*)'  Inidissip  zh min max  ',zhmin,zhmax
      abort_message='probleme generateur alleatoire dans inidissip'
@@ -122 +122 @@
 
      DO    l = 1, 50
-        IF(ii.EQ.1) THEN
+        IF(ii==1) THEN
            !cccc             CALL covcont( 1,zu,zv,zu,zv )
            IF(lstardis) THEN
@@ -142 +142 @@
      end DO
 
-     IF ( ii.EQ.1 ) THEN
+     IF ( ii==1 ) THEN
         IF(lstardis) THEN
            cdivu  = 1./zllm
@@ -201 +201 @@
      tetah(l)      = zvert(l)/tetatemp
 
-     IF( tetamin.GT. (1./tetaudiv(l)) ) tetamin = 1./ tetaudiv(l)
-     IF( tetamin.GT. (1./tetaurot(l)) ) tetamin = 1./ tetaurot(l)
-     IF( tetamin.GT. (1./   tetah(l)) ) tetamin = 1./    tetah(l)
+     IF( tetamin> (1./tetaudiv(l)) ) tetamin = 1./ tetaudiv(l)
+     IF( tetamin> (1./tetaurot(l)) ) tetamin = 1./ tetaurot(l)
+     IF( tetamin> (1./   tetah(l)) ) tetamin = 1./    tetah(l)
   ENDDO