From c09cb1a883ea1ca7a88708cbea75597d71fa5a2a Mon Sep 17 00:00:00 2001
From: JorisP <pianezze.joris@gmail.com>
Date: Tue, 26 Sep 2023 10:19:31 +0200
Subject: [PATCH] Porting of MNH-OASIS routines from SFX8 to SFX9
---
src/MNH/mnh_oasis_define.F90 | 2 +-
src/MNH/mnh_oasis_send.F90 | 16 ++++++++--------
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/MNH/mnh_oasis_define.F90 b/src/MNH/mnh_oasis_define.F90
index 2c85b65a7..c2c948f5f 100644
--- a/src/MNH/mnh_oasis_define.F90
+++ b/src/MNH/mnh_oasis_define.F90
@@ -148,7 +148,7 @@ DEALLOCATE(ISEG_OFFSET)
!* 2. Put definitions for exchange of coupling fields :
! -------------------------------------------------
!
-CALL SFX_OASIS_DEFINE(YSURF_CUR%IM%O, YSURF_CUR%U, &
+CALL SFX_OASIS_DEFINE(YSURF_CUR%IM%O, YSURF_CUR%U, YSURF_CUR%UG, &
HPROGRAM,INPTS, IPARAL )
!
DEALLOCATE(IPARAL)
diff --git a/src/MNH/mnh_oasis_send.F90 b/src/MNH/mnh_oasis_send.F90
index 067957803..3278187cb 100644
--- a/src/MNH/mnh_oasis_send.F90
+++ b/src/MNH/mnh_oasis_send.F90
@@ -245,14 +245,14 @@ ENDIF
!* 3. Send fields to OASIS proc by proc:
! ----------------------------------
!
-CALL SFX_OASIS_SEND(ILUOUT,KI,IDATE,GSEND_LAND,GSEND_LAKE,GSEND_SEA,GSEND_WAVE, &
- ZLAND_RUNOFF,ZLAND_DRAIN,ZLAND_CALVING, &
- ZLAND_SRCFLOOD,ZLAND_DOCFLUX, &
- ZLAKE_EVAP,ZLAKE_RAIN,ZLAKE_SNOW,ZLAKE_WATF, &
- ZSEA_FWSU,ZSEA_FWSV,ZSEA_HEAT,ZSEA_SNET,ZSEA_WIND, &
- ZSEA_FWSM,ZSEA_EVAP,ZSEA_RAIN,ZSEA_SNOW, &
- ZSEA_WATF, &
- ZSEA_PRES,ZSEAICE_HEAT,ZSEAICE_SNET,ZSEAICE_EVAP, &
+CALL SFX_OASIS_SEND(ILUOUT,KI,KI,IDATE,GSEND_LAND,GSEND_LAKE,GSEND_SEA,GSEND_WAVE, &
+ ZLAND_RUNOFF,ZLAND_DRAIN,ZLAND_CALVING, &
+ ZLAND_SRCFLOOD,ZLAND_DOCFLUX, &
+ ZLAKE_EVAP,ZLAKE_RAIN,ZLAKE_SNOW,ZLAKE_WATF, &
+ ZSEA_FWSU,ZSEA_FWSV,ZSEA_HEAT,ZSEA_SNET,ZSEA_WIND, &
+ ZSEA_FWSM,ZSEA_EVAP,ZSEA_RAIN,ZSEA_SNOW, &
+ ZSEA_WATF, &
+ ZSEA_PRES,ZSEAICE_HEAT,ZSEAICE_SNET,ZSEAICE_EVAP, &
ZWAVE_U10, ZWAVE_V10 )
!
!-------------------------------------------------------------------------------
--
GitLab