diff --git a/src/arome/aux/mode_tools.F90 b/src/arome/aux/mode_tools.F90
deleted file mode 100644
index 58f4710ade38450b6b509bd01b05236e3c763f9a..0000000000000000000000000000000000000000
--- a/src/arome/aux/mode_tools.F90
+++ /dev/null
@@ -1,19 +0,0 @@
-MODULE MODE_TOOLS
-IMPLICIT NONE
-CONTAINS
-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
diff --git a/src/common/aux/tools.F90 b/src/common/aux/tools.F90
index 5ecd4e2f8888e21d97dbb1b6e9c83fef1a87382a..6f4d82c5d9d2163f624fbcf0fee74f4b9a0cf144 100644
--- a/src/common/aux/tools.F90
+++ b/src/common/aux/tools.F90
@@ -136,4 +136,20 @@ 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