Changeset 5079 for LMDZ6/trunk/libf/filtrez

Timestamp:

Jul 19, 2024, 11:28:59 AM (5 months ago)

Author:

abarral

Message:

[coherence with Fortran standards]
Replace obsolete DO with shared termination
(minor) replace obsolete bool operators

File:

• LMDZ6/trunk/libf/filtrez/inifgn.F (modified) (1 diff)

LMDZ6/trunk/libf/filtrez/inifgn.F

@@ -28 +28 @@
       pi = 2.* ASIN(1.)
 C
-      DO 5 i=1,iim
+      DO i=1,iim
        dlonu(i)=  xprimu( i )
        dlonv(i)=  xprimv( i )
-   5  CONTINUE
+      END DO
 
-      DO 12 i=1,iim
+      DO i=1,iim
       sddv(i)   = SQRT(dlonv(i))
       sddu(i)   = SQRT(dlonu(i))
       unsddu(i) = 1./sddu(i)
       unsddv(i) = 1./sddv(i)
-  12  CONTINUE
+      END DO
 C
-      DO 17 j=1,iim
-      DO 17 i=1,iim
+      DO j=1,iim
+      DO i=1,iim
       vec(i,j)     = 0.
       vec1(i,j)    = 0.
       eignfnv(i,j) = 0.
       eignfnu(i,j) = 0.
-  17  CONTINUE
+      END DO
+      END DO
 c
 c
       eignfnv(1,1)    = -1.
       eignfnv(iim,1)  =  1.
-      DO 20 i=1,imm1
+      DO i=1,imm1
       eignfnv(i+1,i+1)= -1.
       eignfnv(i,i+1)  =  1.
-  20  CONTINUE
-      DO 25 j=1,iim
-      DO 25 i=1,iim
+      END DO
+      DO j=1,iim
+      DO i=1,iim
       eignfnv(i,j) = eignfnv(i,j)/(sddu(i)*sddv(j))
-  25  CONTINUE
-      DO 30 j=1,iim
-      DO 30 i=1,iim
+      END DO
+      END DO
+      DO j=1,iim
+      DO i=1,iim
       eignfnu(i,j) = -eignfnv(j,i)
-  30  CONTINUE
+      END DO
+      END DO
 c
 #ifdef CRAY