Skip to content

Commit 287e603

Browse files
committed
Fixes typo in uv budget
1 parent 2d6512e commit 287e603

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/core_ocean/shared/mpas_ocn_adcReconstruct.F

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -752,10 +752,10 @@ subroutine compute_ADC_tends(nCells,nVertLevels, nTracers, dt,activeTracers, uve
752752
! The tendency term is truncated if config_adc_truncate_tend flag it switched on
753753
uvtend(i3_f,k,iCell) = -(uvw(k-1,iCell) - uvw(k,iCell)) / dz & ! transport
754754
- tauVel(k,iCell)*uv(i1,k,iCell) & ! Rotta
755-
- 0.5_RKIND*(alpha_1+alpha_2)*(uw(i1,k,iCell)*Vz &
756-
+ vw(i1,k,iCell)*Uz) + & ! rapid
757-
(uw(i1,k,iCell)*Vz + vw(i1,k,iCell)*Uz) + & ! shear production
758-
kappa_VAR*(uv(i1,k-1,iCell) - uv(i1,k+1,iCell)) / &
755+
+ 0.5_RKIND*(alpha_1+alpha_2)* &
756+
(uw(i1,k,iCell)*Vz + vw(i1,k,iCell)*Uz) & ! rapid
757+
- (uw(i1,k,iCell)*Vz + vw(i1,k,iCell)*Uz) & ! shear production
758+
+ kappa_VAR*(uv(i1,k-1,iCell) - uv(i1,k+1,iCell)) / &
759759
(ze(k-1,iCell) - ze(k+1,iCell))**2.0_RKIND ! dissipation
760760

761761
! Truncate the uv tendency term if the truncation flag is switched on

0 commit comments

Comments
 (0)