ice_dyn_vp: rename 'imp_solver' to 'implicit_solver'

Use a more explicit subroutine name, which additionnally does not have
any negative connotations.

cicecore/cicedynB/dynamics/ice_dyn_vp.F90

@@ -58,7 +58,7 @@ module ice_dyn_vp
 
       implicit none
       private
-      public :: imp_solver, init_vp
+      public :: implicit_solver, init_vp
 
       ! namelist parameters
 
@@ -184,7 +184,7 @@ end subroutine init_vp
 !
 ! author: JF Lemieux, A. Qaddouri and F. Dupont ECCC
 
-      subroutine imp_solver (dt)
+      subroutine implicit_solver (dt)
 
       use ice_arrays_column, only: Cdn_ocn
       use ice_boundary, only: ice_HaloMask, ice_HaloUpdate, &
@@ -253,7 +253,7 @@ subroutine imp_solver (dt)
       real (kind=dbl_kind), allocatable :: &
          sol(:)          ! solution vector
 
-      character(len=*), parameter :: subname = '(imp_solver)'
+      character(len=*), parameter :: subname = '(implicit_solver)'
 
       call ice_timer_start(timer_dynamics) ! dynamics
 
@@ -635,7 +635,7 @@ subroutine imp_solver (dt)
 
       call ice_timer_stop(timer_dynamics)    ! dynamics
 
-      end subroutine imp_solver
+      end subroutine implicit_solver
 
 !=======================================================================
 

cicecore/cicedynB/general/ice_step_mod.F90

@@ -833,7 +833,7 @@ subroutine step_dyn_horiz (dt)
 
       use ice_dyn_evp, only: evp
       use ice_dyn_eap, only: eap
-      use ice_dyn_vp, only: imp_solver
+      use ice_dyn_vp, only: implicit_solver
       use ice_dyn_shared, only: kdyn, ktransport
       use ice_flux, only: init_history_dyn
       use ice_transport_driver, only: advection, transport_upwind, transport_remap
@@ -851,7 +851,7 @@ subroutine step_dyn_horiz (dt)
 
       if (kdyn == 1) call evp (dt)
       if (kdyn == 2) call eap (dt)
-      if (kdyn == 3) call imp_solver (dt)
+      if (kdyn == 3) call implicit_solver (dt)
 
       !-----------------------------------------------------------------
       ! Horizontal ice transport