Skip to content

Commit

Permalink
add smoothBLD var
Browse files Browse the repository at this point in the history
  • Loading branch information
alperaltuntas committed May 10, 2018
1 parent 82d9228 commit c2a6ed8
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/parameterizations/vertical/MOM_KPP.F90
Original file line number Diff line number Diff line change
Expand Up @@ -70,6 +70,7 @@ module MOM_KPP
character(len=30) :: MatchTechnique !< Method used in CVMix for setting diffusivity and NLT profile functions
integer :: NLT_shape !< MOM6 over-ride of CVMix NLT shape function
logical :: applyNonLocalTrans !< If True, apply non-local transport to heat and scalars
logical :: smoothBLD !< If True, apply a 1-1-4-1-1 Laplacian filter one time on HBLT.
logical :: KPPzeroDiffusivity !< If True, will set diffusivity and viscosity from KPP to zero; for testing purposes.
logical :: KPPisAdditive !< If True, will add KPP diffusivity to initial diffusivity.
!! If False, will replace initial diffusivity wherever KPP diffusivity is non-zero.
Expand Down Expand Up @@ -172,7 +173,7 @@ logical function KPP_init(paramFile, G, diag, Time, CS, passive)
'If False, calculates the non-local transport and tendencies but\n'//&
'purely for diagnostic purposes.', &
default=.not. CS%passiveMode)
call get_param(paramFile, mdl, 'APPLY_KPP_OBL_FILTER', CS%applyNonLocalTrans, &
call get_param(paramFile, mdl, 'SMOOTH_BLD', CS%smoothBLD, &
'If True, applies a 1-1-4-1-1 Laplacian filter one time on HBLT.\n'// &
'computed via CVMix to reduce any horizontal two-grid-point noise.', &
default=.false.)
Expand Down

0 comments on commit c2a6ed8

Please sign in to comment.