From d69ca550ea2eeb22d941ad976f04106f45aadc3d Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Wed, 28 Jun 2017 17:46:09 -0400 Subject: [PATCH] Fixes openmp directives for Leith mods - Recent mods missed some openmp directives. --- src/parameterizations/lateral/MOM_hor_visc.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/parameterizations/lateral/MOM_hor_visc.F90 b/src/parameterizations/lateral/MOM_hor_visc.F90 index 6d8c9d1453..f4cbbd53f1 100644 --- a/src/parameterizations/lateral/MOM_hor_visc.F90 +++ b/src/parameterizations/lateral/MOM_hor_visc.F90 @@ -396,6 +396,7 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, G, GV, CS, !$OMP sh_xy, str_xy, Ah, Kh, AhSm, KhSm, dvdx, dudy, & !$OMP bhstr_xx, bhstr_xy,FatH,RoScl, hu, hv, h_u, h_v, & !$OMP vort_xy,vort_xy_dx,vort_xy_dy,Vort_mag,AhLth,KhLth, & +!$OMP div_xx, div_xx_dx, div_xx_dy, mod_Leith, & !$OMP Shear_mag, h2uq, h2vq, hq, Kh_scale, hrat_min) do k=1,nz