diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 index f74b3b49a..10a756de6 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 @@ -1518,7 +1518,9 @@ subroutine stress_U (nx_block, ny_block, & !----------------------------------------------------------------- ! COMING SOON!!! - + zetax2U = c0 + etax2U = c0 + rep_prsU = c0 ! call viscous_coeffs_and_rep_pressure_U (zetax2T(i,j), zetax2T(i,j+1), & ! zetax2T(i+1,j+1),zetax2T(i+1,j), & ! etax2T(i,j), etax2T(i,j+1), &