From dbe277d229e756d04983dbcbf63d6ead00bfbfc4 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Tue, 26 Jun 2018 10:38:47 -0600 Subject: [PATCH] Update comments --- src/parameterizations/vertical/MOM_diabatic_driver.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/parameterizations/vertical/MOM_diabatic_driver.F90 b/src/parameterizations/vertical/MOM_diabatic_driver.F90 index 61a811809a..1a23265327 100644 --- a/src/parameterizations/vertical/MOM_diabatic_driver.F90 +++ b/src/parameterizations/vertical/MOM_diabatic_driver.F90 @@ -590,7 +590,7 @@ subroutine diabatic(u, v, h, tv, Hml, fluxes, visc, ADp, CDp, dt, Time_end, & if (CS%useKPP) then call cpu_clock_begin(id_clock_kpp) - ! total vertical viscosity in the interior + ! total vertical viscosity in the interior is represented via visc%Kv_shear do k=1,nz+1 ; do j=js,je ; do i=is,ie visc%Kv_shear(i,j,k) = visc%Kv_shear(i,j,k) + visc%Kv_slow(i,j,k) enddo ; enddo ; enddo