diff --git a/src/ALE/MOM_remapping.F90 b/src/ALE/MOM_remapping.F90
index 5f423f353b..4385cae22c 100644
--- a/src/ALE/MOM_remapping.F90
+++ b/src/ALE/MOM_remapping.F90
@@ -117,9 +117,9 @@ subroutine remapping_main( CS, G, h, dxInterface, tv, u, v )
   nz = G%ke
 
   ! Remap tracer
-  if (associated(tv%S)) then ! Assume T and S are either both associated or both not
 !$OMP parallel default(none) shared(G,h,dxInterface,CS,nz,tv,u,v) &
 !$OMP                       private(h1,dx,u_column)
+  if (associated(tv%S)) then ! Assume T and S are either both associated or both not
 !$OMP do
     do j = G%jsc,G%jec
       do i = G%isc,G%iec
diff --git a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
index daa6371d72..89adc63332 100644
--- a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
+++ b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
@@ -263,8 +263,6 @@ subroutine calc_resoln_function(h, tv, G, CS)
       CS%Res_fn_v(i,J) = 0.5*(CS%Res_fn_h(i,j) + CS%Res_fn_h(i,j+1))
     enddo ; enddo
   else ! .not.CS%interpolate_Res_fn
-!$OMP parallel default(none) shared(is,ie,js,je,Ieq,Jeq,CS) &
-!$OMP                       private(dx_term,cg1_q,power_2,cg1_u,cg1_v)
     if (CS%Res_fn_power_khth >= 100) then
 !$OMP do
       do j=js,je ; do I=is-1,Ieq