From 3921c53474d4698d6fdf5b39b5e79188362472a4 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 21 Jan 2022 18:07:25 +0100
Subject: [PATCH] Quentin 21/01/2022: bugfix last commit functions in tools.F90
 not read by mode_ll.F90 (despite the USE ???) ==> Functions
 WEST/SOUTH/NORTH/EST migrated to mode_ll.F90

---
 src/arome/aux/mode_ll.F90 | 16 ++++++++++++++++
 src/common/aux/tools.F90  | 16 ----------------
 2 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/src/arome/aux/mode_ll.F90 b/src/arome/aux/mode_ll.F90
index 7e905cf6b..d3626160c 100644
--- a/src/arome/aux/mode_ll.F90
+++ b/src/arome/aux/mode_ll.F90
@@ -19,4 +19,20 @@ CONTAINS
   TYPE(LIST_ll), POINTER :: TPLIST ! pointer to the list of fields to be updated
   INTEGER                :: KINFO  ! return status
   END SUBROUTINE UPDATE_HALO_ll
+
+LOGICAL FUNCTION LNORTH_ll()
+  LNORTH_ll=.FALSE.
+END FUNCTION LNORTH_ll
+!
+LOGICAL FUNCTION LEAST_ll()
+  LEAST_ll=.FALSE.
+END FUNCTION LEAST_ll
+!
+LOGICAL FUNCTION LWEST_ll()
+  LWEST_ll=.FALSE.
+END FUNCTION LWEST_ll
+!
+LOGICAL FUNCTION LSOUTH_ll()
+  LSOUTH_ll=.FALSE.
+END FUNCTION LSOUTH_ll
 END MODULE MODE_ll
diff --git a/src/common/aux/tools.F90 b/src/common/aux/tools.F90
index 6f4d82c5d..5ecd4e2f8 100644
--- a/src/common/aux/tools.F90
+++ b/src/common/aux/tools.F90
@@ -136,20 +136,4 @@ function Upcase(hstring)
   end do
 end function Upcase
 
-LOGICAL FUNCTION LNORTH_ll()
-  LNORTH_ll=.FALSE.
-END FUNCTION LNORTH_ll
-!
-LOGICAL FUNCTION LEAST_ll()
-  LEAST_ll=.FALSE.
-END FUNCTION LEAST_ll
-!
-LOGICAL FUNCTION LWEST_ll()
-  LWEST_ll=.FALSE.
-END FUNCTION LWEST_ll
-!
-LOGICAL FUNCTION LSOUTH_ll()
-  LSOUTH_ll=.FALSE.
-END FUNCTION LSOUTH_ll
-
 end module mode_tools
-- 
GitLab