From e3458a463c8962c6fe3f049a6ee82aeed36a468f Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Thu, 14 Jun 2018 11:27:41 +0200
Subject: [PATCH] Gaelle 14/6/18 : bug blowing snow variables
---
src/MNH/write_lfin.f90 | 2 +-
src/SURFEX/write_isban.F90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index a7321c132..1735119f8 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 706414e8b..39d5f4f51 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)
--
GitLab