diff --git a/src/SURFEX/ch_init_emissionn.F90 b/src/SURFEX/ch_init_emissionn.F90
index a523bb0526f9da8e1b229c17ed87dacd4097c7a3..2c5d09e93ae7a290edce92ac4c4a09d60f7da762 100644
--- a/src/SURFEX/ch_init_emissionn.F90
+++ b/src/SURFEX/ch_init_emissionn.F90
@@ -27,6 +27,7 @@
!! D.Gazen 01/12/03 change emissions handling for surf. externalization
!! P.Tulet 01/01/04 introduction of rhodref for externalization
!! M.Leriche & V. Masson 05/16 bug in write emis fields for nest
+!! J. Pianezze 04/17 wrong length of YCOMMENT (100 instead of 40)
!-----------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -65,13 +66,12 @@ CHARACTER(LEN=28), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry agg
!
INTEGER :: IRESP ! File
INTEGER :: ILUOUT ! output listing logical unit
- CHARACTER (LEN=16) :: YRECFM ! management
- CHARACTER (LEN=100) :: YCOMMENT ! variables
+CHARACTER (LEN=LEN_HREC) :: YRECFM ! management
+CHARACTER (LEN=40) :: YCOMMENT ! variables
INTEGER :: JSPEC ! Loop index for cover data
INTEGER :: IIND1,IIND2 ! Indices counter
-!
- CHARACTER(LEN=40) :: YSPEC_NAME ! species name
- CHARACTER(LEN=LEN_HREC), DIMENSION(:),ALLOCATABLE :: YEMIS_NAME ! offline emitted species name
+CHARACTER(LEN=40) :: YSPEC_NAME ! species name
+CHARACTER(LEN=LEN_HREC), DIMENSION(:),ALLOCATABLE :: YEMIS_NAME ! species name
INTEGER,DIMENSION(:),ALLOCATABLE :: INBTIMES! number of emission times array
INTEGER,DIMENSION(:),ALLOCATABLE :: ITIMES ! emission times for a species
INTEGER,DIMENSION(:),ALLOCATABLE :: IOFFNDX ! index array of offline emission species
@@ -185,7 +185,7 @@ DO JSPEC = 1,NEMISPEC_NBR ! Loop on the number of species
CEMIS_AREA(JSPEC) = YSURF
!
!* 2. Simple reading of emission fields
-
+!
IF (HINIT /= "ALL") THEN
YRECFM='E_'//TRIM(ADJUSTL(YSPEC_NAME))
ALLOCATE(ZWORK2D(KLU,INBTS))