diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90 index a7321c13251148a8d382407c2a5814887fe673af..1735119f8532ee69b9310f6c77c0e726222af254 100644 --- a/src/MNH/write_lfin.f90 +++ b/src/MNH/write_lfin.f90 @@ -976,7 +976,7 @@ IF (NSV >=1) THEN TZFIELD%NDIMS = 2 TZFIELD%LTIMEDEP = .TRUE. DO JSV = 1,(NSV_SNW) - WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SNOWCANO_M',JSV + WRITE(TZFIELD%CMNHNAME,'(A10,I3.3)')'SNOWCANO_M',JSV TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) WRITE(TZFIELD%CCOMMENT,'(A6,A8,I3.3)')'X_Y_Z_','SNOWCANO',JSV CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSNWCANO(:,:,JSV)) diff --git a/src/SURFEX/write_isban.F90 b/src/SURFEX/write_isban.F90 index 706414e8bead18ceda2687dbb8632db2d8bd5a25..39d5f4f512ba13919ba19c82f2330597c54ee20e 100644 --- a/src/SURFEX/write_isban.F90 +++ b/src/SURFEX/write_isban.F90 @@ -95,7 +95,7 @@ IF (LHOOK) CALL DR_HOOK('WRITE_ISBA_N',0,ZHOOK_HANDLE) U%NSIZE_NATURE, HPROGRAM,OLAND_USE) ! IF ((.NOT.LNOWRITE_CANOPY).OR.SIZE(HSELECT)>0) THEN - CALL WRITESURF_SBL_n(HSELECT, IM%O%LCANOPY, IM%SB, HPROGRAM, HWRITE, "NATURE") + CALL WRITESURF_SBL_n(HSELECT, IM%O%LCANOPY, IM%SB, HPROGRAM, HWRITE, "NATURE",SV=IM%CHI%SVI) ENDIF ! CALL END_IO_SURF_n(HPROGRAM)