From fd23f9117335d0542312f932e2fc241fbab25058 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Mon, 16 Apr 2018 11:28:19 -0600 Subject: [PATCH] Set visc%Kv_slow to zero in diabatic --- src/parameterizations/vertical/MOM_diabatic_driver.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/parameterizations/vertical/MOM_diabatic_driver.F90 b/src/parameterizations/vertical/MOM_diabatic_driver.F90 index 70412a716b..8e45d26688 100644 --- a/src/parameterizations/vertical/MOM_diabatic_driver.F90 +++ b/src/parameterizations/vertical/MOM_diabatic_driver.F90 @@ -378,6 +378,8 @@ subroutine diabatic(u, v, h, tv, Hml, fluxes, visc, ADp, CDp, dt, Time_end, G, G 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()