From 198d75559a5f7ef65c566a3f56f9c641286329e8 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Wed, 23 May 2018 11:14:06 -0600 Subject: [PATCH] Delete visc%kv_slow=0 since this is done in set_diffusivity --- src/parameterizations/vertical/MOM_diabatic_driver.F90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/parameterizations/vertical/MOM_diabatic_driver.F90 b/src/parameterizations/vertical/MOM_diabatic_driver.F90 index 882ed8cb26..698243a7f6 100644 --- a/src/parameterizations/vertical/MOM_diabatic_driver.F90 +++ b/src/parameterizations/vertical/MOM_diabatic_driver.F90 @@ -387,9 +387,6 @@ subroutine diabatic(u, v, h, tv, Hml, fluxes, visc, ADp, CDp, dt, Time_end, & h_neglect = GV%H_subroundoff ; h_neglect2 = h_neglect*h_neglect Kd_heat(:,:,:) = 0.0 ; Kd_salt(:,:,:) = 0.0 - ! visc%Kv_slow must be set to zero - visc%Kv_slow(:,:,:) = 0.0 - if (nz == 1) return showCallTree = callTree_showQuery() if (showCallTree) call callTree_enter("diabatic(), MOM_diabatic_driver.F90")