Index: LMDZ6/trunk/libf/phydev/infotrac_phy.F90
===================================================================
--- LMDZ6/trunk/libf/phydev/infotrac_phy.F90	(revision 4243)
+++ LMDZ6/trunk/libf/phydev/infotrac_phy.F90	(revision 4244)
@@ -4,4 +4,5 @@
 MODULE infotrac_phy
 
+   USE strings_mod, ONLY: maxlen
    INTEGER,                 SAVE :: nqtot                       !--- Tracers nb in dynamics (incl. higher moments + H2O)
    CHARACTER(LEN=maxlen),   SAVE :: type_trac                   !--- Keyword for tracers type
@@ -12,8 +13,9 @@
 
 SUBROUTINE init_infotrac_phy(nqtot_, type_trac_)
-   USE strings_mod, ONLY: maxlen, strParse
+   USE strings_mod, ONLY: strParse
    IMPLICIT NONE
    INTEGER,          INTENT(IN) :: nqtot_
    CHARACTER(LEN=*), INTENT(IN) :: type_trac_
+   CHARACTER(LEN=maxlen) :: modname='init_infotrac_phy'
 
    nqtot = nqtot_