Skip to content

Commit

Permalink
Clean comments
Browse files Browse the repository at this point in the history
  • Loading branch information
gustavo-marques committed Jun 26, 2018
1 parent cfb1edd commit fb49644
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions src/parameterizations/vertical/MOM_diabatic_driver.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1608,9 +1608,6 @@ subroutine legacy_diabatic(u, v, h, tv, Hml, fluxes, visc, ADp, CDp, dt, Time_en

! Differential diffusion done here.
! Changes: tv%T, tv%S
! If using matching within the KPP scheme, then this step needs to provide
! a diffusivity and happen before KPP. But generally in MOM, we do not match
! KPP boundary layer to interior, so this diffusivity can be computed when convenient.
if (associated(visc%Kd_extra_T) .and. associated(visc%Kd_extra_S) .and. associated(tv%T)) then
call cpu_clock_begin(id_clock_differential_diff)

Expand Down

0 comments on commit fb49644

Please sign in to comment.