Changeset 5081 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2

Timestamp:

Jul 19, 2024, 4:15:44 PM (14 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/phylmd/cosp2/mrgrnk.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/mrgrnk.F90

@@ -68 +68 @@
        IRNGT (1) = 1
        Return
-    Case Default
-       Continue
     End Select
     !
@@ -268 +266 @@
        IRNGT (1) = 1
        Return
-    Case Default
-       Continue
     End Select
     !
@@ -467 +463 @@
        IRNGT (1) = 1
        Return
-    Case Default
-       Continue
     End Select
     !