From 22b66954384bbfff363872632b897ec4b20a17c9 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Tue, 11 Jun 2019 13:23:19 -0600 Subject: [PATCH] Remove trailing space --- src/parameterizations/lateral/MOM_thickness_diffuse.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/parameterizations/lateral/MOM_thickness_diffuse.F90 b/src/parameterizations/lateral/MOM_thickness_diffuse.F90 index 9c3259e1f2..7a85292e54 100644 --- a/src/parameterizations/lateral/MOM_thickness_diffuse.F90 +++ b/src/parameterizations/lateral/MOM_thickness_diffuse.F90 @@ -1262,7 +1262,7 @@ subroutine thickness_diffuse_full(h, e, Kh_u, Kh_v, tv, uhD, vhD, cg1, dt, G, GV !if (find_work) then ; do j=js,je ; do i=is,ie ; do k=nz,1,-1 - if (find_work) then ; do j=js,je ; do i=is,ie + if (find_work) then ; do j=js,je ; do i=is,ie ! Note that the units of Work_v and Work_u are W, while Work_h is W m-2. 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)))