diff --git a/src/MNH/mnh_oasis_define.F90 b/src/MNH/mnh_oasis_define.F90 index 2c85b65a74be21e1a3e5c5c14a34e65e712d0b40..c2c948f5fdc9161426f27386b6f1c3d1674d1af5 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 06795780347d39be1d2c0c6bc575ce1161d98075..3278187cbb4d82dbff94ec9b3eb9430de54d577f 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 ) ! !-------------------------------------------------------------------------------