Changeset 5081 for LMDZ6/branches/Amaury_dev/libf/misc

Timestamp:

Jul 19, 2024, 4:15:44 PM (13 months ago)

Author:

abarral

Message:

Commit linked to correcting relevant warnings during gfortran compilation

[minor]
Correct remnants of fixed-form "+" in massbarxy.F90
Correct COMMON alignment in clesphys.h, flux_arp.h, cv*param.h, YOECUMF.h, alpale.h
Correct obsolete logical operators
Restrict use of iso_fortran_env in nf95_abort.f90
Remove redundant save in module declarations
Remove <continue> without labels
Fix nonstandard kind selectors

File:

• LMDZ6/branches/Amaury_dev/libf/misc/cray.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/cray.F

@@ -15 +15 @@
       iy=1
       ix=1
-      do 10 i=1,n
+      DO i=1,n
          sy(iy)=sx(ix)
          ix=ix+incx
          iy=iy+incy
-10    continue
+      END DO
 c
       return
@@ -33 +33 @@
       ssum=0.
       ix=1
-      do 10 i=1,n
+      do i=1,n
          ssum=ssum+sx(ix)
          ix=ix+incx
-10    continue
+      end do
 c
       return