Skip to content
Snippets Groups Projects
Commit 7a0b87f4 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 07/07/2021: bugfix use of ECOSG at spawning step (namelist key was not read)

parent f6f71aff
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/SURFEX/zoom_pgd_surf_atm.F90
+ 1
− 0
View file @ 7a0b87f4
...@@ -112,6 +112,7 @@ IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_SURF_ATM',0,ZHOOK_HANDLE) ...@@ -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,'NATURE',YSC%U%CNATURE,IRESP)
CALL READ_SURF(HINIFILETYPE,'WATER', YSC%U%CWATER, IRESP) CALL READ_SURF(HINIFILETYPE,'WATER', YSC%U%CWATER, IRESP)
CALL READ_SURF(HINIFILETYPE,'TOWN', YSC%U%CTOWN, 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 READ_COVER_GARDEN(HINIFILETYPE,YSC%U%LGARDEN)
CALL INIT_READ_DATA_COVER(HPROGRAM) CALL INIT_READ_DATA_COVER(HPROGRAM)
CALL INI_DATA_COVER(YSC%DTCO, YSC%U) CALL INI_DATA_COVER(YSC%DTCO, YSC%U)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme