Philippe 28/10/2022: small bugfix: use correct index for YJSV

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'  )