From c9f9fcfc67a64245de188ba0f2b423f93be9ecb1 Mon Sep 17 00:00:00 2001
From: WURTZ Jean <wurtzj@sxville>
Date: Thu, 2 Mar 2023 13:46:29 +0100
Subject: [PATCH] Initialization of bare soil is necessary
---
src/SURFEX/get_var_naturen.F90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/SURFEX/get_var_naturen.F90 b/src/SURFEX/get_var_naturen.F90
index e33da1af3..aee65de4e 100644
--- a/src/SURFEX/get_var_naturen.F90
+++ b/src/SURFEX/get_var_naturen.F90
@@ -37,6 +37,7 @@
! M. Jidane 08/2008 Z0 and Z0H recovery from nature tiles
! S. Riette 06/2010 TWSNOW added
! V. Masson 02/2015 adds LAI, height of trees, fraction of bare soil
+! J. Wurtz 02/2023 uncomment baresoil initialization : needed for MNH init
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -127,9 +128,9 @@ ELSE
PZ0 = XUNDEF
PZ0H = XUNDEF
ENDIF
-!
-!PBARE = S%XVEGTYPE(:,NVT_NO)
-!
+
+PBARE = S%XVEGTYPE(:,NVT_NO)
+
PVEGT(:) = 0.
DO JP=1,IO%NPATCH
PK => NP%AL(JP)
--
GitLab