From 7d85ab2912ced10af8bcb10e18df3e0c6aec903a Mon Sep 17 00:00:00 2001 From: alperaltuntas Date: Thu, 8 Jul 2021 19:49:09 -0600 Subject: [PATCH] set lamult to 1 below ice --- config_src/drivers/nuopc_cap/mom_surface_forcing_nuopc.F90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/config_src/drivers/nuopc_cap/mom_surface_forcing_nuopc.F90 b/config_src/drivers/nuopc_cap/mom_surface_forcing_nuopc.F90 index 4b03ccf743..228b47dc69 100644 --- a/config_src/drivers/nuopc_cap/mom_surface_forcing_nuopc.F90 +++ b/config_src/drivers/nuopc_cap/mom_surface_forcing_nuopc.F90 @@ -879,7 +879,11 @@ subroutine convert_IOB_to_forces(IOB, forces, index_bounds, Time, G, US, CS) ! wave to ocean coupling if ( associated(IOB%lamult)) then do j=js,je; do i=is,ie - forces%lamult(i,j) = IOB%lamult(i-i0,j-j0) + if (IOB%ice_fraction(i-i0,j-j0) <= 0.05 ) then + forces%lamult(i,j) = IOB%lamult(i-i0,j-j0) + else + forces%lamult(i,j) = 1.0 + endif enddo ; enddo call pass_var(forces%lamult, G%domain, halo=1 ) endif