From c46b8efb5f70ac670aad16da96e286f989202694 Mon Sep 17 00:00:00 2001
From: WURTZ Jean <wurtzj@sxville>
Date: Thu, 2 Mar 2023 13:47:41 +0100
Subject: [PATCH] Keep variables needed for MNH

---
 src/SURFEX/compute_isba_parameters.F90 | 42 ++++++++++++++------------
 1 file changed, 22 insertions(+), 20 deletions(-)

diff --git a/src/SURFEX/compute_isba_parameters.F90 b/src/SURFEX/compute_isba_parameters.F90
index 40d8cb9ac..7fe0bc312 100644
--- a/src/SURFEX/compute_isba_parameters.F90
+++ b/src/SURFEX/compute_isba_parameters.F90
@@ -137,6 +137,7 @@ USE MODI_MAKE_CHOICE_ARRAY
 USE MODI_READ_SURF
 USE MODI_READ_ISBA_n
 USE MODI_READ_ISBA_NUDGING_n
+!USE MODI_INIT_ISBA_LANDUSE
 USE MODI_READ_SBL_n
 USE MODI_INIT_VEG_n
 USE MODI_INIT_CHEMICAL_n
@@ -1040,26 +1041,27 @@ DO JP = 1,IO%NPATCH
 ENDDO
 !
 ! Useledd fields from now on
-ISS%XAOSIP => NULL()
-ISS%XAOSIM => NULL()
-ISS%XAOSJP => NULL()
-ISS%XAOSJM => NULL()
-ISS%XHO2IP => NULL()
-ISS%XHO2IM => NULL()
-ISS%XHO2JP => NULL()
-ISS%XHO2JM => NULL()
-!
-K%XCGSAT => NULL()
-K%XC4B   => NULL()
-K%XACOEF => NULL()
-K%XPCOEF => NULL()  
-!
-K%XHCAPSOIL => NULL()
-K%XCONDDRY  => NULL()
-K%XCONDSLD  => NULL()
-!
-K%XWDRAIN  => NULL()
-K%XRUNOFFB => NULL()
+! J. Wurtz -> usefull for nesting
+!ISS%XAOSIP => NULL()
+!ISS%XAOSIM => NULL()
+!ISS%XAOSJP => NULL()
+!ISS%XAOSJM => NULL()
+!ISS%XHO2IP => NULL()
+!ISS%XHO2IM => NULL()
+!ISS%XHO2JP => NULL()
+!ISS%XHO2JM => NULL()
+!
+!K%XCGSAT => NULL()
+!K%XC4B   => NULL()
+!K%XACOEF => NULL()
+!K%XPCOEF => NULL()  
+!
+!K%XHCAPSOIL => NULL()
+!K%XCONDDRY  => NULL()
+!K%XCONDSLD  => NULL()
+!
+!K%XWDRAIN  => NULL()
+!K%XRUNOFFB => NULL()
 !
 !-------------------------------------------------------------------------------
 !
-- 
GitLab