diff --git a/src/cpl_driver.F90 b/src/cpl_driver.F90 index f148f719b..a26b842f2 100644 --- a/src/cpl_driver.F90 +++ b/src/cpl_driver.F90 @@ -29,7 +29,7 @@ module cpl_driver #if defined (__oifs) integer :: nsend = 7 - integer :: nrecv = 13 + integer :: nrecv = 15 #else integer :: nsend = 4 integer :: nrecv = 12 @@ -696,6 +696,8 @@ subroutine cpl_oasis3mct_define_unstr(partit, mesh) cpl_recv(11) = 'heat_swo' cpl_recv(12) = 'hydr_oce' cpl_recv(13) = 'calv_oce' + cpl_recv(14) = 'u10w_oce' + cpl_recv(15) = 'v10w_oce' #else cpl_recv(1) = 'taux_oce' cpl_recv(2) = 'tauy_oce' diff --git a/src/gen_forcing_couple.F90 b/src/gen_forcing_couple.F90 index f5fae6ce1..f27dcec8e 100755 --- a/src/gen_forcing_couple.F90 +++ b/src/gen_forcing_couple.F90 @@ -376,6 +376,14 @@ subroutine update_atm_forcing(istep, ice, tracers, dynamics, partit, mesh) mask=1. call force_flux_consv(enthalpyoffuse, mask, i, 0, action, partit, mesh) end if + elseif (i.eq.14) then + if (action) then + u_wind(:) = exchange(:) ! zonal wind + end if + elseif (i.eq.15) then + if (action) then + v_wind(:) = exchange(:) ! meridional wind + end if #else ! oifs elseif (i.eq.13) then if (action) then