Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/obsolete

Timestamp:

Jul 19, 2024, 5:41:58 PM (4 months ago)

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

Location:

LMDZ6/branches/Amaury_dev/libf/obsolete

Files:

• mkstat.F90 (modified) (1 diff)
• wstats.F90 (modified) (12 diffs)

LMDZ6/branches/Amaury_dev/libf/obsolete/mkstat.F90

@@ -127 +127 @@
       enddo
 
-    else if (ndims.eq.3) then
+    else if (ndims==3) then
 
 !      dimout(1)=lonid

LMDZ6/branches/Amaury_dev/libf/obsolete/wstats.F90

@@ -37 +37 @@
 endif
 
-if (mod(step,istats).ne.0) then
+if (mod(step,istats)/=0) then
    RETURN
 endif
@@ -46 +46 @@
 ierr= NF_INQ_VARID(nid,namebis,meanid)
 
-if (ierr.ne.NF_NOERR) then
+if (ierr/=NF_NOERR) then
 
    if (firstvar==nom) then 
@@ -59 +59 @@
    ierr= NF_INQ_DIMID(nid,"longitude",id(1))
    ierr= NF_INQ_DIMID(nid,"latitude",id(2))
-   if (dim.eq.3) then
+   if (dim==3) then
       ierr= NF_INQ_DIMID(nid,"altitude",id(3))
       ierr= NF_INQ_DIMID(nid,"Time",id(4))
@@ -95 +95 @@
 
 if (count(index)==0) then
-   if (dim.eq.3) then
+   if (dim==3) then
       start=(/1,1,1,index/)
       size=(/iip1,jjp1,llm,1/)
       mean3d=0
       sd3d=0
-   else if (dim.eq.2) then
+   else if (dim==2) then
       start=(/1,1,index,0/)
       size=(/iip1,jjp1,1,0/)
@@ -107 +107 @@
    endif
 else
-   if (dim.eq.3) then
+   if (dim==3) then
       start=(/1,1,1,index/)
       size=(/iip1,jjp1,llm,1/)
@@ -117 +117 @@
       ierr = NF_GET_VARA_REAL(nid,sdid,start,size,sd3d)
 #endif
-      if (ierr.ne.NF_NOERR) then
+      if (ierr/=NF_NOERR) then
          write (*,*) NF_STRERROR(ierr)
          stop ""
       endif
 
-   else if (dim.eq.2) then
+   else if (dim==2) then
       start=(/1,1,index,0/)
       size=(/iip1,jjp1,1,0/)
@@ -132 +132 @@
       ierr = NF_GET_VARA_REAL(nid,sdid,start,size,sd2d)
 #endif
-      if (ierr.ne.NF_NOERR) then
+      if (ierr/=NF_NOERR) then
          write (*,*) NF_STRERROR(ierr)
          stop ""
@@ -139 +139 @@
 endif
 
-if (dim.eq.3) then
+if (dim==3) then
 
 !  Passage variable physique -->  variable dynamique
@@ -167 +167 @@
    ierr = NF_PUT_VARA_REAL(nid,sdid,start,size,sd3d)
 #endif
-   if (ierr.ne.NF_NOERR) then
+   if (ierr/=NF_NOERR) then
      write (*,*) NF_STRERROR(ierr)
      stop ""
    endif
 
-else if (dim.eq.2) then
+else if (dim==2) then
 
 !    Passage variable physique -->  physique dynamique
@@ -198 +198 @@
    ierr = NF_PUT_VARA_REAL(nid,sdid,start,size,sd2d)
 #endif
-   if (ierr.ne.NF_NOERR) then
+   if (ierr/=NF_NOERR) then
      write (*,*) NF_STRERROR(ierr)
      stop ""
@@ -230 +230 @@
 real, dimension(iip1,jjp1) :: dx2
 
-if (dim.eq.3) then
+if (dim==3) then
 
    start=(/1,1,1,index/)
@@ -257 +257 @@
 #endif
 
-else if (dim.eq.2) then
+else if (dim==2) then
 
       start=(/1,1,index,0/)