We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2d6512e commit 287e603Copy full SHA for 287e603
src/core_ocean/shared/mpas_ocn_adcReconstruct.F
@@ -752,10 +752,10 @@ subroutine compute_ADC_tends(nCells,nVertLevels, nTracers, dt,activeTracers, uve
752
! The tendency term is truncated if config_adc_truncate_tend flag it switched on
753
uvtend(i3_f,k,iCell) = -(uvw(k-1,iCell) - uvw(k,iCell)) / dz & ! transport
754
- 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)) / &
+ + 0.5_RKIND*(alpha_1+alpha_2)* &
+ (uw(i1,k,iCell)*Vz + vw(i1,k,iCell)*Uz) & ! rapid
+ - (uw(i1,k,iCell)*Vz + vw(i1,k,iCell)*Uz) & ! shear production
+ + kappa_VAR*(uv(i1,k-1,iCell) - uv(i1,k+1,iCell)) / &
759
(ze(k-1,iCell) - ze(k+1,iCell))**2.0_RKIND ! dissipation
760
761
! Truncate the uv tendency term if the truncation flag is switched on
0 commit comments