From 7a0b87f496a79259832f6d0903d66054597fba5f Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Wed, 7 Jul 2021 11:38:33 +0200
Subject: [PATCH] Quentin 07/07/2021: bugfix use of ECOSG at spawning step
(namelist key was not read)
---
src/SURFEX/zoom_pgd_surf_atm.F90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/SURFEX/zoom_pgd_surf_atm.F90 b/src/SURFEX/zoom_pgd_surf_atm.F90
index c3be1abc6..7d82452cc 100644
--- a/src/SURFEX/zoom_pgd_surf_atm.F90
+++ b/src/SURFEX/zoom_pgd_surf_atm.F90
@@ -112,6 +112,7 @@ IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_SURF_ATM',0,ZHOOK_HANDLE)
CALL READ_SURF(HINIFILETYPE,'NATURE',YSC%U%CNATURE,IRESP)
CALL READ_SURF(HINIFILETYPE,'WATER', YSC%U%CWATER, IRESP)
CALL READ_SURF(HINIFILETYPE,'TOWN', YSC%U%CTOWN, IRESP)
+ CALL READ_SURF(HINIFILETYPE,'ECOSG', YSC%U%LECOSG, IRESP)
CALL READ_COVER_GARDEN(HINIFILETYPE,YSC%U%LGARDEN)
CALL INIT_READ_DATA_COVER(HPROGRAM)
CALL INI_DATA_COVER(YSC%DTCO, YSC%U)
--
GitLab