From fb2b433213c6cfb6af86478545e217ec23bf0a1d Mon Sep 17 00:00:00 2001
From: Ian Grooms <ian.grooms@colorado.edu>
Date: Thu, 2 May 2024 09:39:54 -0600
Subject: [PATCH] Fix dimensional scaling error

---
 src/ALE/MOM_ALE.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ALE/MOM_ALE.F90 b/src/ALE/MOM_ALE.F90
index 6c9b7cca25..56dbc95c17 100644
--- a/src/ALE/MOM_ALE.F90
+++ b/src/ALE/MOM_ALE.F90
@@ -1232,7 +1232,7 @@ subroutine ALE_remap_velocities(CS, G, GV, h_old_u, h_old_v, h_new_u, h_new_v, u
       do k=1,nz
         v2h_tot = v2h_tot + h2(k) * (v_tgt(k)**2)
       enddo
-      dv2h_tot(I,j) = GV%Rho0 * GV%H_to_m * v2h_tot / dt
+      dv2h_tot(I,j) = GV%Rho0 * v2h_tot / dt
     endif
 
     if ((CS%BBL_h_vel_mask > 0.0) .and. (CS%h_vel_mask > 0.0)) then