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

Timestamp:

Jul 24, 2024, 1:27:51 PM (4 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Turn description.h into lmdz_description.f90

Location:

LMDZ6/branches/Amaury_dev/libf/misc

Files:

• lmdz_coefpoly.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/coefpoly_m.F90) (4 diffs)
• lmdz_description.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/description.h) (1 diff)

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

@@ -1 @@
-module coefpoly_m
+module lmdz_coefpoly
 
   IMPLICIT NONE
@@ -27 +27 @@
     use nrtype, 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:
@@ -38 +38 @@
     xtil2car = xtild2 * xtild2
 
-    derr = 2. * (xf2-xf1)/(xtild1-xtild2)
+    derr = 2. * (xf2 - xf1) / (xtild1 - xtild2)
 
-    x1x2car = (xtild1-xtild2) * (xtild1-xtild2)
+    x1x2car = (xtild1 - xtild2) * (xtild1 - xtild2)
 
-    a3 = (derr+xprim1+xprim2)/x1x2car
-    a2 = (xprim1-xprim2+3. * a3 * (xtil2car-xtil1car))/(2. * (xtild1-xtild2))
+    a3 = (derr + xprim1 + xprim2) / x1x2car
+    a2 = (xprim1 - xprim2 + 3. * a3 * (xtil2car - xtil1car)) / (2. * (xtild1 - xtild2))
 
     a1 = xprim1 - 3. * a3 * xtil1car - 2. * a2 * xtild1
@@ -50 +50 @@
   END SUBROUTINE coefpoly
 
-end module coefpoly_m
+end module lmdz_coefpoly

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

@@ +1 @@
+! Replaces description.h
 
-! $Header$
-
-      character (len=120) :: descript
-      common /titre/descript
+MODULE lmdz_description
+  IMPLICIT NONE; PRIVATE
+  PUBLIC descript
+  CHARACTER (LEN = 120) :: descript
+END MODULE lmdz_description