From 760bf6adc3a17b02d113a5ebd139cc5d654af247 Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Mon, 23 Feb 2026 06:42:48 -0700 Subject: [PATCH 1/2] Remove unnecessary cast This cast to real shouldn't be done since we are assigning an r8 to an r8. --- mediator/med_phases_prep_glc_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mediator/med_phases_prep_glc_mod.F90 b/mediator/med_phases_prep_glc_mod.F90 index e218db9d9..d237ac281 100644 --- a/mediator/med_phases_prep_glc_mod.F90 +++ b/mediator/med_phases_prep_glc_mod.F90 @@ -937,7 +937,7 @@ subroutine med_phases_prep_glc_map_lnd2glc(gcomp, rc) dataexp_g(n) = data_ice_covered_g(n) else ! non ice-covered cells have bare land value - dataexp_g(n) = real(dataptr2d(1,n)) + dataexp_g(n) = dataptr2d(1,n) end if end do ! end of loop over land points From c54a0f84a2ea91543d25f4ae72fc2ee058e151cd Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Mon, 23 Feb 2026 06:50:18 -0700 Subject: [PATCH 2/2] Parenthesize some expressions The point of this is to make some minimal changes needed to get bit-for-bit results with an upcoming refactor, in which the elevation factors will be computed separately. --- mediator/med_phases_prep_glc_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mediator/med_phases_prep_glc_mod.F90 b/mediator/med_phases_prep_glc_mod.F90 index d237ac281..22e777a50 100644 --- a/mediator/med_phases_prep_glc_mod.F90 +++ b/mediator/med_phases_prep_glc_mod.F90 @@ -924,8 +924,8 @@ subroutine med_phases_prep_glc_map_lnd2glc(gcomp, rc) data_ice_covered_g(n) = dataptr2d(ec-1,n) * 0.5_r8 & + dataptr2d(ec ,n) * 0.5_r8 else - data_ice_covered_g(n) = dataptr2d(ec-1,n) * (elev_u - topoglc_g(n)) / d_elev & - + dataptr2d(ec ,n) * (topoglc_g(n) - elev_l) / d_elev + data_ice_covered_g(n) = dataptr2d(ec-1,n) * ((elev_u - topoglc_g(n)) / d_elev) & + + dataptr2d(ec ,n) * ((topoglc_g(n) - elev_l) / d_elev) end if exit end if