Update mpas_ocn_adcReconstruct.F

Author: BrodiePearson

src/core_ocean/shared/mpas_ocn_adcReconstruct.F

@@ -863,7 +863,7 @@ subroutine compute_ADC_tends(nCells,nVertLevels, nTracers, dt,activeTracers, uve
 !      included implicitly in the timestepping
                  u2tend(i3_f,k,iCell) = u2tend1(k,iCell) + u2tend2(k,iCell) + &
                    u2tend3(k,iCell) + u2tend4(k,iCell) + u2tend5(k,iCell) + &
-                   u2tend6(k,iCell) + 2.0_RKIND*tauvVel(k,iCell)*u2(i1,k,iCell)/3.0_RKIND
+                   u2tend6(k,iCell) + 2.0_RKIND*tauVel(k,iCell)*u2(i1,k,iCell)/3.0_RKIND
 
                  if (config_adc_truncate_tend) then
                     u2tend(i3_f,k,iCell) = FLOAT (INT(u2tend(i3_f,k,iCell) * adcRound &
@@ -901,7 +901,7 @@ subroutine compute_ADC_tends(nCells,nVertLevels, nTracers, dt,activeTracers, uve
 !      included implicitly in the timestepping
                  v2tend(i3_f,k,iCell) = v2tend1(k,iCell) + v2tend2(k,iCell) + &
                    v2tend3(k,iCell) + v2tend4(k,iCell) + v2tend5(k,iCell) + &
-                   v2tend6(k,iCell) + 2.0_RKIND*tauvVel(k,iCell)*v2(i1,k,iCell)/3.0_RKIND
+                   v2tend6(k,iCell) + 2.0_RKIND*tauVel(k,iCell)*v2(i1,k,iCell)/3.0_RKIND
 
                  if (config_adc_truncate_tend) then
                     v2tend(i3_f,k,iCell) = FLOAT (INT(v2tend(i3_f,k,iCell) * adcRound &
@@ -1135,7 +1135,7 @@ subroutine compute_ADC_tends(nCells,nVertLevels, nTracers, dt,activeTracers, uve
                  endif
 
                  v2(i2,k,iCell) = (v2(i1,k,iCell) + dt_small*(Cw3 * v2tend(i3_f,k,iCell) + &
-                   Cw2 * v2tend(i1_f,k,iCell) + Cw1 * v2tend(i1_f,k,iCell))) /              &
+                   Cw2 * v2tend(i2_f,k,iCell) + Cw1 * v2tend(i1_f,k,iCell))) /              &
                    (1.0_RKIND + dt_small*tauVel(k,iCell)*2.0_RKIND/3.0_RKIND)
                  if(v2(i2,k,iCell) < epsilon) then
                     v2cliptend(k,iCell) = epsilon - v2(i2,k,iCell)