squash! ice_dyn_vp: remove unused subroutine and cleanup interfaces

phil-blain · Aug 12, 2022 · a1f6364 · a1f6364
1 parent a4cf10e
commit a1f6364
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90
@@ -781,9 +781,6 @@ subroutine anderson_solver (icellt  , icellu , &
          stress_Pr,   & ! x,y-derivatives of the replacement pressure
          diag_rheo      ! contributions of the rhelogy term to the diagonal
 
-      real (kind=dbl_kind), dimension (max_blocks) :: &
-         L2norm       ! array used to compute l^2 norm of grid function
-
       real (kind=dbl_kind), dimension (ntot) :: &
          res        , & ! current residual
          res_old    , & ! previous residual
@@ -819,7 +816,6 @@ subroutine anderson_solver (icellt  , icellu , &
 
       ! Initialization
       res_num = 0
-      L2norm  = c0
 
       !$OMP PARALLEL DO PRIVATE(iblk)
       do iblk = 1, nblocks