Index: LMDZ6/trunk/libf/dyn3dmem/fluxstokenc_p.f90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/fluxstokenc_p.f90	(revision 5282)
+++ LMDZ6/trunk/libf/dyn3dmem/fluxstokenc_p.f90	(revision 5283)
@@ -6,4 +6,5 @@
       SUBROUTINE fluxstokenc_p(pbaru,pbarv , &
               masse,  teta, phi)
+  USE tracstoke_mod_h
   USE parallel_lmdz
   USE control_mod, ONLY : iapp_tracvl,planet_type,iphysiq
@@ -32,5 +33,4 @@
 
 
-  include "tracstoke.h"
 
   !   Arguments:
Index: LMDZ6/trunk/libf/dyn3dmem/gcm.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/gcm.F90	(revision 5282)
+++ LMDZ6/trunk/libf/dyn3dmem/gcm.F90	(revision 5283)
@@ -32,4 +32,5 @@
   USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
+  USE tracstoke_mod_h
 IMPLICIT NONE
 
@@ -63,7 +64,4 @@
   !   Declarations:
   !   -------------
-  include "tracstoke.h"
-
-
   REAL zdtvr