Changeset 5119 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_physical_constants.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/misc/lmdz_physical_constants.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_physical_constants.f90

@@ -1 +1 @@
 MODULE lmdz_physical_constants
 
-  IMPLICIT NONE
+  IMPLICIT NONE; PRIVATE
+  PUBLIC k8, PI, PIO2, TWOPI, SQRT2, EULER, PI_D, PIO2_D, TWOPI_D
 
   INTEGER, parameter :: k8 = selected_real_kind(13)