ice_dyn_vp: calc_bvec: remove unneeded arguments

phil-blain · Jul 16, 2020 · 8218e82 · 8218e82
1 parent 0179edf
commit 8218e82
Showing 1 changed file with 0 additions and 8 deletions.
diff --git a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90
@@ -831,7 +831,6 @@ subroutine anderson_solver (icellt  , icellu, &
                             indxui     (:,iblk), indxuj    (:,iblk), &
                             stPrtmp     (:,:,:), uarear  (:,:,iblk), &
                             waterx   (:,:,iblk), watery  (:,:,iblk), &
-                            ulin     (:,:,iblk), vlin    (:,:,iblk), &
                             bxfix    (:,:,iblk), byfix   (:,:,iblk), &
                             bx       (:,:,iblk), by      (:,:,iblk), &
                             vrel     (:,:,iblk))
@@ -1840,7 +1839,6 @@ subroutine calc_bvec (nx_block, ny_block, &
                             indxui  , indxuj  , &
                             stPr    , uarear  , &
                             waterx  , watery  , &
-                            uvel    , vvel    , &
                             bxfix   , byfix   , &
                             bx      , by      , &
                             vrel)
@@ -1854,8 +1852,6 @@ subroutine calc_bvec (nx_block, ny_block, &
          indxuj      ! compressed index in j-direction
 
       real (kind=dbl_kind), dimension (nx_block,ny_block), intent(in) :: &
-         uvel    , & ! x-component of velocity (m/s)
-         vvel    , & ! y-component of velocity (m/s)
          uarear  , & ! 1/uarea
          waterx  , & ! for ocean stress calculation, x (m/s)
          watery  , & ! for ocean stress calculation, y (m/s)
@@ -1876,7 +1872,6 @@ subroutine calc_bvec (nx_block, ny_block, &
          i, j, ij
 
       real (kind=dbl_kind) :: &
-         utp, vtp          , & ! utp = uvel, vtp = vvel !jfl needed?
          taux, tauy        , & ! part of ocean stress term
          strintx, strinty  , & ! divergence of the internal stress tensor (only Pr part)
          rhow                  !
@@ -1896,9 +1891,6 @@ subroutine calc_bvec (nx_block, ny_block, &
          i = indxui(ij)
          j = indxuj(ij)
 
-         utp = uvel(i,j)
-         vtp = vvel(i,j)
-
          ! ice/ocean stress
          taux = vrel(i,j)*waterx(i,j) ! NOTE this is not the entire
          tauy = vrel(i,j)*watery(i,j) ! ocn stress term