Deletes whitespace

NOAA-GFDL · Sep 13, 2019 · 584177f · 584177f
1 parent fe44289
commit 584177f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/parameterizations/lateral/MOM_thickness_diffuse.F90 b/src/parameterizations/lateral/MOM_thickness_diffuse.F90
@@ -1268,9 +1268,9 @@ subroutine thickness_diffuse_full(h, e, Kh_u, Kh_v, tv, uhD, vhD, cg1, dt, G, GV
       Work_h = 0.5 * G%IareaT(i,j) * &
         ((Work_u(I-1,j) + Work_u(I,j)) + (Work_v(i,J-1) + Work_v(i,J)))
       if (associated(CS%GMwork)) CS%GMwork(i,j) = Work_h
-      if (associated(MEKE) .and. associated(MEKE%GM_src) .and. .not. CS%GM_src_alt ) then 
+      if (associated(MEKE) .and. associated(MEKE%GM_src) .and. .not. CS%GM_src_alt ) then
         MEKE%GM_src(i,j) = MEKE%GM_src(i,j) + Work_h
-      endif 
+      endif
     enddo ; enddo
 
     if (associated(MEKE) .and. associated(MEKE%GM_src) .and. CS%GM_src_alt) then
@@ -1279,7 +1279,7 @@ subroutine thickness_diffuse_full(h, e, Kh_u, Kh_v, tv, uhD, vhD, cg1, dt, G, GV
           Kh_u(I-1,j,k)*(Slope_x_PE(I-1,j,k)**2) * hN2_x_PE(I-1,j,k) + &
           Kh_v(i,J,k)*(Slope_y_PE(i,J,k)**2) * hN2_y_PE(i,J,k) + &
           Kh_v(i,J-1,k)*(Slope_y_PE(i,J-1,k)**2) * hN2_y_PE(i,J-1,k))
-
+        
         MEKE%GM_src(i,j) = MEKE%GM_src(i,j) + PE_release_h
       enddo ; enddo ; enddo
     endif