From a33a44c48b6a11219c525b5bc1fa046ad321aa87 Mon Sep 17 00:00:00 2001
From: WURTZ Jean <wurtzj@sxville>
Date: Mon, 13 Mar 2023 16:58:49 +0100
Subject: [PATCH] correction for CALL to LSEAICE_2FLX
---
src/MNH/mnh_oasis_recv.F90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/MNH/mnh_oasis_recv.F90 b/src/MNH/mnh_oasis_recv.F90
index f3bbff21d..80a2d0db9 100644
--- a/src/MNH/mnh_oasis_recv.F90
+++ b/src/MNH/mnh_oasis_recv.F90
@@ -81,8 +81,9 @@ USE MODD_SFX_OASIS, ONLY : LCPL_LAND, &
LCPL_GW,LCPL_FLOOD,&
LCPL_SEA, &
LCPL_SEAICE, &
- LCPL_WAVE, &
- LSEAICE_2FLX
+ LCPL_WAVE
+
+USE MODN_SFX_OASIS, ONLY : LSEAICE_2FLX
!
USE MODD_SURF_PAR, ONLY : XUNDEF
USE MODD_MNH_SURFEX_n
--
GitLab