Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_coefpoly.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_coefpoly.f90 (modified) (1 diff)

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

@@ -26 +26 @@
     ! a0, a1, a2, a3.
 
-    use nrtype, ONLY: k8
+    USE lmdz_physical_constants, ONLY: k8
 
-    REAL(K8), intent(in) :: xf1, xf2, xprim1, xprim2, xtild1, xtild2
-    REAL(K8), intent(out) :: a0, a1, a2, a3
+    REAL(K8), INTENT(IN) :: xf1, xf2, xprim1, xprim2, xtild1, xtild2
+    REAL(K8), INTENT(OUT) :: a0, a1, a2, a3
 
     ! Local: