From 932e8ed3ec04f43d57c5b86f433bbf780862ab56 Mon Sep 17 00:00:00 2001
From: WURTZ Jean <wurtzj@sxville>
Date: Tue, 7 Feb 2023 17:18:13 +0100
Subject: [PATCH] Correction in init CALL (unused key) with SFXV9
---
src/MNH/init_ground_paramn.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/init_ground_paramn.f90 b/src/MNH/init_ground_paramn.f90
index a69c604f7..25f0c8cea 100644
--- a/src/MNH/init_ground_paramn.f90
+++ b/src/MNH/init_ground_paramn.f90
@@ -221,7 +221,7 @@ ELSE
ALLOCATE(YSV_SURF(ISV))
YSV_SURF(:) = HSV(:)
ENDIF
-CALL INIT_SURF_ATM_n(YSURF_CUR,'MESONH',HINIT,.FALSE., &
+CALL INIT_SURF_ATM_n(YSURF_CUR,'MESONH',HINIT, &
ILU,ISV,SIZE(PSW_BANDS), &
YSV_SURF,ZCO2,ZRHODREF, &
ZZENITH,ZAZIM,PSW_BANDS,ZDIR_ALB,ZSCA_ALB, &
--
GitLab