diff --git a/src/MNH/write_profilern.f90 b/src/MNH/write_profilern.f90
index 0a87d0a6eabbe1c3466980f05e5b5f634cabc695..a011479a3aec3833065e4a014f0e5f86ffd64fe6 100644
--- a/src/MNH/write_profilern.f90
+++ b/src/MNH/write_profilern.f90
@@ -59,6 +59,7 @@ END MODULE MODI_WRITE_PROFILER_n
 !!     2016 : G.DELAUTIER : LIMA
 !!              Oct, 2016 (C.Lac) Add visibility diagnostics for fog
 !!  Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+!!  J. Escobar : 16/08/2018: From Pierre & Maud , correction use CNAMES(JSV-NSV_CHEMBEG+1)
 !!
 !! --------------------------------------------------------------------------
 !       
@@ -500,7 +501,7 @@ IF (SIZE(TPROFILER%SV,4)>=1) THEN
   ! chemical scalar variables
   DO JSV=NSV_CHEMBEG,NSV_CHEMEND
     JPROC = JPROC+1
-    YTITLE(JPROC)= TRIM(CNAMES(JSV))
+    YTITLE(JPROC)= TRIM(CNAMES(JSV-NSV_CHEMBEG+1))
     YUNIT    (JPROC) = 'ppb'
     WRITE(YCOMMENT (JPROC),'(A5,A3,I3.3)') 'T(s) ','SVT',JSV
     ZWORK6 (1,1,IK,:,1,JPROC) = TPROFILER%SV(:,IK,II,JSV) * 1.E9