diff --git a/src/trans/external/dir_trans.F90 b/src/trans/external/dir_trans.F90
index 1c27cfde..d785ca79 100644
--- a/src/trans/external/dir_trans.F90
+++ b/src/trans/external/dir_trans.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -8,6 +7,7 @@
 ! granted to it by virtue of its status as an intergovernmental organisation
 ! nor does it submit to any jurisdiction.
 !
+#include "renames.inc"
 #ifndef INMODULE
 SUBROUTINE DIR_TRANS(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
 & LDLATLON,KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
diff --git a/src/trans/external/dir_transad.F90 b/src/trans/external/dir_transad.F90
index 116ae5f0..50c4e643 100644
--- a/src/trans/external/dir_transad.F90
+++ b/src/trans/external/dir_transad.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE DIR_TRANSAD(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
 & KPROMA,KVSETUV,KVSETSC,KRESOL,KVSETSC3A,KVSETSC3B,KVSETSC2,&
 & PGP,PGPUV,PGP3A,PGP3B,PGP2)
diff --git a/src/trans/external/dist_grid.F90 b/src/trans/external/dist_grid.F90
index 69fc79b5..aea6c85f 100644
--- a/src/trans/external/dist_grid.F90
+++ b/src/trans/external/dist_grid.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE DIST_GRID(PGPG,KPROMA,KFDISTG,KFROM,KRESOL,PGP,KSORT)
 
 !**** *DIST_GRID* - Distribute global gridpoint array among processors
diff --git a/src/trans/external/dist_grid_32.F90 b/src/trans/external/dist_grid_32.F90
index 0787927b..545b6a37 100644
--- a/src/trans/external/dist_grid_32.F90
+++ b/src/trans/external/dist_grid_32.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE DIST_GRID_32(PGPG,KPROMA,KFDISTG,KFROM,KRESOL,PGP)
 
 !**** *DIST_GRID_32* - Distribute global gridpoint array among processors
diff --git a/src/trans/external/dist_spec.F90 b/src/trans/external/dist_spec.F90
index 40f17d2c..95a95196 100644
--- a/src/trans/external/dist_spec.F90
+++ b/src/trans/external/dist_spec.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE DIST_SPEC(PSPECG,KFDISTG,KFROM,KVSET,KRESOL,PSPEC,&
  & LDIM1_IS_FLD,KSMAX,KSORT)
 
diff --git a/src/trans/external/gath_grid.F90 b/src/trans/external/gath_grid.F90
index ffac1dde..e0b5747a 100644
--- a/src/trans/external/gath_grid.F90
+++ b/src/trans/external/gath_grid.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE GATH_GRID(PGPG,KPROMA,KFGATHG,KTO,KRESOL,PGP)
 
 !**** *GATH_GRID* - Gather global gridpoint array from processors
diff --git a/src/trans/external/gath_grid_32.F90 b/src/trans/external/gath_grid_32.F90
index e7cf8826..9490f0d2 100644
--- a/src/trans/external/gath_grid_32.F90
+++ b/src/trans/external/gath_grid_32.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE GATH_GRID_32(PGPG,KPROMA,KFGATHG,KTO,KRESOL,PGP)
 
 !**** *GATH_GRID_32* - Gather global gridpoint array from processors
diff --git a/src/trans/external/gath_spec.F90 b/src/trans/external/gath_spec.F90
index 9fbecac6..3136e2aa 100644
--- a/src/trans/external/gath_spec.F90
+++ b/src/trans/external/gath_spec.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE GATH_SPEC(PSPECG,KFGATHG,KTO,KVSET,KRESOL,PSPEC,LDIM1_IS_FLD,KSMAX,LDZA0IP)
 
 !**** *GATH_SPEC* - Gather global spectral array from processors
diff --git a/src/trans/external/get_current.F90 b/src/trans/external/get_current.F90
index 75cc8565..1b814aba 100644
--- a/src/trans/external/get_current.F90
+++ b/src/trans/external/get_current.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2012- Meteo-France.
 ! (C) Copyright 2012- ECMWF.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE GET_CURRENT(KRESOL,LDLAM)
 
 !**** *GET_CURRENT* - Extract current information from the transform package
diff --git a/src/trans/external/gpnorm_trans.F90 b/src/trans/external/gpnorm_trans.F90
index b60033dd..613377ea 100644
--- a/src/trans/external/gpnorm_trans.F90
+++ b/src/trans/external/gpnorm_trans.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2008- ECMWF.
 ! (C) Copyright 2008- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE GPNORM_TRANS(PGP,KFIELDS,KPROMA,PAVE,PMIN,PMAX,LDAVE_ONLY,KRESOL)
 
 
diff --git a/src/trans/external/ini_spec_dist.F90 b/src/trans/external/ini_spec_dist.F90
index f215ff27..442d7c55 100644
--- a/src/trans/external/ini_spec_dist.F90
+++ b/src/trans/external/ini_spec_dist.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE INI_SPEC_DIST(KSMAX,KTMAX,KPRTRW,KMYSETW,KASM0,KSPOLEGL,KPROCM,&
                     &KUMPP,KSPEC,KSPEC2,KSPEC2MX,KPOSSP,KMYMS,KPTRMS,KALLMS)
 
diff --git a/src/trans/external/inv_trans.F90 b/src/trans/external/inv_trans.F90
index ab7b89a6..460fcdf0 100644
--- a/src/trans/external/inv_trans.F90
+++ b/src/trans/external/inv_trans.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -8,6 +7,7 @@
 ! granted to it by virtue of its status as an intergovernmental organisation
 ! nor does it submit to any jurisdiction.
 !
+#include "renames.inc"
 #ifndef INMODULE
 SUBROUTINE INV_TRANS(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
  & FSPGL_PROC,&
diff --git a/src/trans/external/inv_transad.F90 b/src/trans/external/inv_transad.F90
index 57c02daf..e5874281 100644
--- a/src/trans/external/inv_transad.F90
+++ b/src/trans/external/inv_transad.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE INV_TRANSAD(PSPVOR,PSPDIV,PSPSCALAR,PSPSC3A,PSPSC3B,PSPSC2,&
  & FSPGL_PROC,&
  & LDSCDERS,LDVORGP,LDDIVGP,LDUVDER,KPROMA,KVSETUV,KVSETSC,KRESOL,&
diff --git a/src/trans/external/setup_trans.F90 b/src/trans/external/setup_trans.F90
index b6658fab..2d68bb6f 100644
--- a/src/trans/external/setup_trans.F90
+++ b/src/trans/external/setup_trans.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -8,6 +7,7 @@
 ! granted to it by virtue of its status as an intergovernmental organisation
 ! nor does it submit to any jurisdiction.
 !
+#include "renames.inc"
 #ifndef INMODULE
 SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KDLON,KLOEN,LDSPLIT,PSTRET,&
 &KTMAX,KRESOL,PWEIGHT,LDGRIDONLY,LDUSERPNM,LDKEEPRPNM,LDUSEFLT,&
diff --git a/src/trans/external/setup_trans0.F90 b/src/trans/external/setup_trans0.F90
index b5a171cc..618467b8 100644
--- a/src/trans/external/setup_trans0.F90
+++ b/src/trans/external/setup_trans0.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 #ifndef INMODULE
 SUBROUTINE SETUP_TRANS0(KOUT,KERR,KPRINTLEV,KMAX_RESOL,KPROMATR,&
 &                       KPRGPNS,KPRGPEW,KPRTRW,KCOMBFLEN,&
diff --git a/src/trans/external/specnorm.F90 b/src/trans/external/specnorm.F90
index eddc7d3e..93ceb8df 100644
--- a/src/trans/external/specnorm.F90
+++ b/src/trans/external/specnorm.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 #ifndef INMODULE
 SUBROUTINE SPECNORM(PNORM,PSPEC,KVSET,KMASTER,KRESOL,PMET)
 #else
diff --git a/src/trans/external/sugawc.F90 b/src/trans/external/sugawc.F90
index 82914d77..23a87785 100644
--- a/src/trans/external/sugawc.F90
+++ b/src/trans/external/sugawc.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE SUGAWC(KDGLG,PMU,PW)
 
 !**** *SUGAWC* - Compute Gaussian latitudes and weights 
diff --git a/src/trans/external/trans_end.F90 b/src/trans/external/trans_end.F90
index 2761e5ae..4cb7624e 100644
--- a/src/trans/external/trans_end.F90
+++ b/src/trans/external/trans_end.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE TRANS_END(CDMODE)
 
 !**** *TRANS_END* - Terminate transform package
diff --git a/src/trans/external/trans_inq.F90 b/src/trans/external/trans_inq.F90
index 82784875..078867d7 100644
--- a/src/trans/external/trans_inq.F90
+++ b/src/trans/external/trans_inq.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 #ifndef INMODULE
 SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
                     &KGPTOT,KGPTOTG,KGPTOTMX,KGPTOTL,&
diff --git a/src/trans/external/trans_pnm.F90 b/src/trans/external/trans_pnm.F90
index 16d4cc38..7fc0eadf 100644
--- a/src/trans/external/trans_pnm.F90
+++ b/src/trans/external/trans_pnm.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE TRANS_PNM(KRESOL,KM,PRPNM,LDTRANSPOSE,LDCHEAP)
 
 !**** *TRANS_PNM* - Compute Legendre polynomials for a given wavenember
diff --git a/src/trans/external/trans_release.F90 b/src/trans/external/trans_release.F90
index f9d67373..659abfea 100644
--- a/src/trans/external/trans_release.F90
+++ b/src/trans/external/trans_release.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2000- ECMWF.
 ! (C) Copyright 2000- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE TRANS_RELEASE(KRESOL)
 
 !**** *TRANS_RELEASE* - release a spectral resolution
diff --git a/src/trans/external/vordiv_to_uv.F90 b/src/trans/external/vordiv_to_uv.F90
index db66d9ca..f9b7d6b2 100644
--- a/src/trans/external/vordiv_to_uv.F90
+++ b/src/trans/external/vordiv_to_uv.F90
@@ -1,4 +1,3 @@
-#include "renames.inc"
 ! (C) Copyright 2015- ECMWF.
 ! (C) Copyright 2015- Meteo-France.
 ! 
@@ -9,6 +8,7 @@
 ! nor does it submit to any jurisdiction.
 !
 
+#include "renames.inc"
 SUBROUTINE VORDIV_TO_UV(PSPVOR,PSPDIV,PSPU,PSPV,KSMAX,KVSETUV)
 
 !**** *VORDIV_TO_UV* - Convert spectral vorticity and divergence to spectral U (u*cos(theta)) and V (v*cos(theta).