Skip to content

Commit ae3bd7d

Browse files
committed
Remove commented old lines
1 parent 4567f4a commit ae3bd7d

File tree

1 file changed

+0
-2
lines changed

1 file changed

+0
-2
lines changed

src/core_ocean/shared/mpas_ocn_adcReconstruct.F

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -233,8 +233,6 @@ subroutine compute_ADC_tends(nCells,nVertLevels, nTracers, dt,activeTracers, uve
233233
! La_t = (friction velocity / surface stokes drift magnitude)^(0.5) and the
234234
! stokes_angle (angle between surface stress and Stokes drift vectors)
235235

236-
! uStokes(1,iCell) = uStokes_surf
237-
! vStokes(1,iCell) = vStokes_surf
238236
do k=1,nVertLevels
239237
! Calculate Stokes drift at vertical edge of cells
240238
uStokes(k,iCell) = uStokes_surf*EXP(ze(k,iCell)/stokes_depth)

0 commit comments

Comments
 (0)