From 9ac2e5a8bfb7d7766546ca96ac3a6c4cc071fd0b Mon Sep 17 00:00:00 2001 From: yuchengt900 Date: Thu, 2 Jan 2025 10:40:19 -0500 Subject: [PATCH] Resolved a line truncation issue --- src/tracer/MOM_generic_tracer.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/tracer/MOM_generic_tracer.F90 b/src/tracer/MOM_generic_tracer.F90 index de2e849d50..f3b9955c83 100644 --- a/src/tracer/MOM_generic_tracer.F90 +++ b/src/tracer/MOM_generic_tracer.F90 @@ -771,9 +771,11 @@ subroutine MOM_generic_tracer_column_physics(h_old, h_new, ea, eb, fluxes, Hml, mld_pha(:,:) = CS%mld_pha_val else if (CS%mld_pha_use_delta_rho) then - call diagnoseMLDbyDensityDifference(-1, h_old, tv, CS%mld_pha_drho, G, GV, US, CS%diag, CS%mld_pha_href, id_ref_z=-1, id_ref_rho=-1, MLD_out=mld_pha) + call diagnoseMLDbyDensityDifference(-1, h_old, tv, CS%mld_pha_drho, G, GV, US, CS%diag, & + CS%mld_pha_href, id_ref_z=-1, id_ref_rho=-1, MLD_out=mld_pha) elseif (CS%mld_pha_use_delta_eng) then - call diagnoseMLDbyEnergy((/-1, -1, -1/), h_old, tv, G, GV, US, (/CS%mld_pha_deng, CS%mld_pha_deng, CS%mld_pha_deng/), CS%diag, MLD_out=mld_pha) + call diagnoseMLDbyEnergy((/-1, -1, -1/), h_old, tv, G, GV, US, (/CS%mld_pha_deng, & + CS%mld_pha_deng, CS%mld_pha_deng/), CS%diag, MLD_out=mld_pha) endif endif