diff --git a/src/ALE/MOM_ALE.F90 b/src/ALE/MOM_ALE.F90 index 55dd9be913..bd78e932f7 100644 --- a/src/ALE/MOM_ALE.F90 +++ b/src/ALE/MOM_ALE.F90 @@ -1172,7 +1172,7 @@ subroutine ALE_remap_velocities(CS, G, GV, h_old_u, h_old_v, h_new_u, h_new_v, u ke_c_tgt = ke_c_tgt + h2(k) * (u_tgt(k) - u_bt)**2 enddo ! Next rescale baroclinic component on target grid to conserve ke - if (answer_date >= 20241016) then + if (CS%answer_date >= 20241016) then if (ke_c_src < 1.5625 * ke_c_tgt) then rescale_coef = sqrt(ke_c_src / ke_c_tgt) else @@ -1248,7 +1248,7 @@ subroutine ALE_remap_velocities(CS, G, GV, h_old_u, h_old_v, h_new_u, h_new_v, u ke_c_tgt = ke_c_tgt + h2(k) * (v_tgt(k) - v_bt)**2 enddo ! Next rescale baroclinic component on target grid to conserve ke - if (answer_date >= 20241016) then + if (CS%answer_date >= 20241016) then if (ke_c_src < 1.5625 * ke_c_tgt) then rescale_coef = sqrt(ke_c_src / ke_c_tgt) else