Changeset 5119 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/principal_cshift_m.F90

Timestamp:

Jul 24, 2024, 6:46:45 PM (4 months ago)

Author:

abarral

Message:

enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/principal_cshift_m.F90 (modified) (2 diffs)

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

@@ -3 +3 @@
   IMPLICIT NONE
 
-contains
+CONTAINS
 
   SUBROUTINE principal_cshift(is2, xlon, xprimm)
@@ -41 +41 @@
   END SUBROUTINE  principal_cshift
 
-end module principal_cshift_m
+END MODULE principal_cshift_m