Removed trailing space and added use_kh_struct to $OMP

NOAA-GFDL · Oct 17, 2024 · 10ebeb9 · 10ebeb9
1 parent 0b82dca
commit 10ebeb9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/parameterizations/lateral/MOM_hor_visc.F90 b/src/parameterizations/lateral/MOM_hor_visc.F90
@@ -665,7 +665,7 @@ subroutine horizontal_viscosity(u, v, h, uh, vh, diffu, diffv, MEKE, VarMix, G,
   !$OMP   is, ie, js, je, Isq, Ieq, Jsq, Jeq, nz, &
   !$OMP   is_vort, ie_vort, js_vort, je_vort, &
   !$OMP   is_Kh, ie_Kh, js_Kh, je_Kh, &
-  !$OMP   apply_OBC, rescale_Kh, legacy_bound, find_FrictWork, &
+  !$OMP   apply_OBC, rescale_Kh, legacy_bound, find_FrictWork, use_kh_struct, &
   !$OMP   use_MEKE_Ku, use_MEKE_Au, u_smooth, v_smooth, use_cont_huv, slope_x, slope_y, dz, &
   !$OMP   backscat_subround, GME_effic_h, GME_effic_q, &
   !$OMP   h_neglect, h_neglect3, inv_PI3, inv_PI6, &
@@ -1196,7 +1196,7 @@ subroutine horizontal_viscosity(u, v, h, uh, vh, diffu, diffv, MEKE, VarMix, G,
         else
           if (CS%res_scale_MEKE) then
             do j=js_Kh,je_Kh ; do i=is_Kh,ie_Kh
-              Kh(i,j) = Kh(i,j) + MEKE%Ku(i,j) * VarMix%Res_fn_h(i,j) 
+              Kh(i,j) = Kh(i,j) + MEKE%Ku(i,j) * VarMix%Res_fn_h(i,j)
             enddo ; enddo
           else
             do j=js_Kh,je_Kh ; do i=is_Kh,ie_Kh
@@ -1460,7 +1460,7 @@ subroutine horizontal_viscosity(u, v, h, uh, vh, diffu, diffv, MEKE, VarMix, G,
           if (use_kh_struct) then
             Kh_BS(i,j) = MEKE%Ku(i,j) * VarMix%BS_struct(i,j,k)
           else
-            Kh_BS(i,j) = MEKE%Ku(i,j) 
+            Kh_BS(i,j) = MEKE%Ku(i,j)
           endif
         endif
       enddo ; enddo

diff --git a/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90 b/src/parameterizations/lateral/MOM_lateral_mixing_coeffs.F90
@@ -589,7 +589,7 @@ subroutine calc_sqg_struct(h, tv, G, GV, US, CS, dt, MEKE)
   endif
   do k=2,nz ; do j=js,je ; do i=is,ie
     N2 = max(0.25 * ((N2_u(I-1,j,k) + N2_u(I,j,k)) + (N2_v(i,J-1,k) + N2_v(i,J,k))), 0.0)
-    dzc = 0.25 * ((dzu(I-1,j,k) + dzu(I,j,k)) + (dzv(i,J-1,k) + dzv(i,J,k))) 
+    dzc = 0.25 * ((dzu(I-1,j,k) + dzu(I,j,k)) + (dzv(i,J-1,k) + dzv(i,J,k)))
     CS%sqg_struct(i,j,k) = CS%sqg_struct(i,j,k-1) * &
             exp(-CS%sqg_expo * (dzc * sqrt(N2)/(f(i,j) * Le(i,j))))
   enddo ; enddo ; enddo