ice_dyn_vp: anderson_solver: remove unused arguments

This completes 4616628 (ice_dyn_vp: remove legacy FGMRES solver, 2020-02-17).
phil-blain · Jul 15, 2020 · 7a8951a · 7a8951a
1 parent 2a5f4b7
commit 7a8951a
Showing 1 changed file with 6 additions and 12 deletions.
diff --git a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90
@@ -250,9 +250,7 @@ subroutine imp_solver (dt)
          this_block           ! block information for current block
 
       real (kind=dbl_kind), allocatable :: &
-         bvec(:)     , & ! right-hand-side vector
-         sol(:)      , & ! solution vector
-         diagvec(:)      ! diagonal vector
+         sol(:)          ! solution vector
 
       character(len=*), parameter :: subname = '(imp_solver)'
 
@@ -462,7 +460,7 @@ subroutine imp_solver (dt)
       enddo
       ntot = 2*ntot ! times 2 because of u and v
 
-      allocate(bvec(ntot), sol(ntot), diagvec(ntot))
+      allocate(sol(ntot))
 
       !-----------------------------------------------------------------
       ! Start of nonlinear iteration
@@ -473,16 +471,15 @@ subroutine imp_solver (dt)
                             aiu,      ntot,    &
                             waterx,   watery,  & 
                             bxfix,    byfix,   &
-                            umassdti, bvec,    & 
-                            sol,      diagvec, &
+                            umassdti, sol,     &
                             fpresx,   fpresy,  &
                             zetaD,    Cb,      &
                             halo_info_mask)
       !-----------------------------------------------------------------
       ! End of nonlinear iteration
       !-----------------------------------------------------------------
 
-      deallocate(bvec, sol, diagvec)
+      deallocate(sol)
 
       if (maskhalo_dyn) call ice_HaloDestroy(halo_info_mask)
 
@@ -657,8 +654,7 @@ subroutine anderson_solver (icellt,   icellu,  &
                                   aiu,      ntot,    &
                                   waterx,   watery,  & 
                                   bxfix,    byfix,   &
-                                  umassdti, bvec,    & 
-                                  sol,      diagvec, &
+                                  umassdti, sol,     &
                                   fpresx,   fpresy,  &
                                   zetaD,    Cb,      &
                                   halo_info_mask)
@@ -708,9 +704,7 @@ subroutine anderson_solver (icellt,   icellu,  &
          Cb           ! seabed stress coefficient
 
       real (kind=dbl_kind), dimension (ntot), intent(inout) :: &
-         bvec     , & ! RHS vector for FGMRES
-         sol      , & ! current approximate solution
-         diagvec      ! diagonal of matrix A for preconditioners
+         sol          ! current approximate solution
 
       ! local variables