diff --git a/src/MNH/ground_paramn.f90 b/src/MNH/ground_paramn.f90
index 986441cfd536fbb6407bb9497690e3b0ebe6ce8b..1be86f91f8857c9561f15e89a746a5d26a26154b 100644
--- a/src/MNH/ground_paramn.f90
+++ b/src/MNH/ground_paramn.f90
@@ -761,12 +761,12 @@ NULLIFY(TZFIELDSURF_ll)
 ! CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PSFU,   'GROUND_PARAM_n::PSFU'   )
 ! CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PSFV,   'GROUND_PARAM_n::PSFV'   )
 DO JLAYER = 1, SIZE( PDIR_ALB, 3 )
-  WRITE( YJSV, '( I6.6 )' ) JSV
+  WRITE( YJSV, '( I6.6 )' ) JLAYER
   CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PDIR_ALB(:,:,JLAYER), 'GROUND_PARAM_n::PDIR_ALB'//YJSV )
   CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PSCA_ALB(:,:,JLAYER), 'GROUND_PARAM_n::PSCA_ALB'//YJSV )
 END DO
 DO JLAYER = 1, SIZE( PEMIS, 3 )
-  WRITE( YJSV, '( I6.6 )' ) JSV
+  WRITE( YJSV, '( I6.6 )' ) JLAYER
   CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PEMIS(:,:,JLAYER), 'GROUND_PARAM_n::PEMIS'//YJSV )
 END DO
 CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PTSRAD, 'GROUND_PARAM_n::PTSRAD'  )