diff --git a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 index d90a2a8fb..87c87ecd7 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 @@ -878,6 +878,8 @@ subroutine anderson_solver (icellt , icellu , & vrel (:,:,iblk)) ! Compute nonlinear residual norm (PDE residual) + Fx = c0 + Fy = c0 call matvec (nx_block , ny_block , & icellu (iblk) , icellt (iblk), & indxui (:,iblk) , indxuj (:,iblk), &