Fix for compiling with openmp

mom-ocean · Sep 11, 2014 · f7abf68 · f7abf68
1 parent 6970ef1
commit f7abf68
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/parameterizations/lateral/MOM_hor_visc.F90 b/src/parameterizations/lateral/MOM_hor_visc.F90
@@ -303,7 +303,7 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, G, CS, OBC)
 !$OMP parallel do default(none) shared(Isq,Ieq,Jsq,Jeq,nz,CS,G,u,v,is,js,h,h_neglect, &
 !$OMP                                  rescale_Kh,VarMix,Kh_h,Ah_h,h_neglect3,Kh_q,   &
 !$OMP                                  Ah_q,ie,je,diffu,apply_OBC,OBC,diffv,          &
-!$OMP                                  find_FrictWork,FrictWork)                      &
+!$OMP                                  find_FrictWork,FrictWork,use_MEKE_Ku,MEKE)     &
 !$OMP                          private(u0, v0, sh_xx, str_xx, visc_bound_rem,         &
 !$OMP                                  sh_xy, str_xy, Ah, Kh, AhSm, KhSm,             &
 !$OMP                                  Shear_mag, huq, hvq, hq, Kh_scale, hrat_min)

diff --git a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
@@ -174,7 +174,7 @@ subroutine calc_resoln_function(h, tv, G, CS)
   mod_power_2 = mod(CS%Res_fn_power, 2)
 
 !$OMP parallel default(none) shared(is,ie,js,je,Ieq,Jeq,CS,mod_power_2) &
-!$OMP                       private(dx_term,cg1_q,power_2)
+!$OMP                       private(dx_term,cg1_q,power_2,cg1_u,cg1_v)
   if (CS%Res_fn_power >= 100) then
 !$OMP do
     do j=js-1,je+1 ; do i=is-1,ie+1