Changeset 5113 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inter_barxy_m.F90

Timestamp:

Jul 24, 2024, 1:17:08 PM (2 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inter_barxy_m.F90 (modified) (5 diffs)

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

@@ -6 +6 @@
   ! Authors: Robert SADOURNY, Phu LE VAN, Lionel GUEZ
 
-  implicit none
-
-  private
+  IMPLICIT NONE
+
+  PRIVATE
   public inter_barxy
 
@@ -15 +15 @@
   SUBROUTINE inter_barxy(dlonid, dlatid, champ, rlonimod, rlatimod, champint)
 
-    use assert_eq_m, only: assert_eq
-    use assert_m, only: assert
+    use lmdz_assert_eq, only: assert_eq
+    use lmdz_assert, only: assert
 
     include "dimensions.h"
@@ -117 +117 @@
     !      ( Les abscisses sont exprimees en degres)
 
-    use assert_eq_m, only: assert_eq
+    use lmdz_assert_eq, only: assert_eq
 
     IMPLICIT NONE
@@ -299 +299 @@
     ! L'indice 1 correspond à l'interface maille 1 -- maille 2.
 
-    use assert_m, only: assert
+    use lmdz_assert, only: assert
 
     IMPLICIT NONE
@@ -373 +373 @@
     ! Finally, the procedure adds 90° as the last value of the array.
 
-    use assert_eq_m, only: assert_eq
+    use lmdz_assert_eq, only: assert_eq
     use comconst_mod, only: pi