Merge branch 'irenavankova/ocn/fix-subglacial-config-attenuation' (PR E…

…3SM-Project#6672) Fix variables in data subglacial runoff This fixes a typo in PR E3SM-Project#6508, where config_flux_attenuation_coefficient_runoff was mistakenly used in kpp loop instead of config_flux_attenuation_coefficient_subglacial_runoff These variables are only used for data subglacial runoff. [BFB] for all tested configurations
E3SM-Ocean-Discussion · Oct 10, 2024 · 4cfbe4a · 4cfbe4a
2 parents 6e216a5 + 5812563
commit 4cfbe4a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_diagnostics.F b/components/mpas-ocean/src/shared/mpas_ocn_diagnostics.F
@@ -3574,8 +3574,8 @@ subroutine ocn_compute_KPP_input_fields(statePool, forcingPool, &
                    do k = maxLevelCell(iCell), minLevelCell(iCell), -1
                       zBot = zTop - layerThickness(k,iCell)
                       if (k == minLevelCell(iCell)) then
-                        transmissionCoeffTop = exp( max(zTop / config_flux_attenuation_coefficient_runoff, -100.0_RKIND) )
-                        transmissionCoeffBot = exp( max(zBot / config_flux_attenuation_coefficient_runoff, -100.0_RKIND) )
+                        transmissionCoeffTop = exp( max(zTop / config_flux_attenuation_coefficient_subglacial_runoff, -100.0_RKIND) )
+                        transmissionCoeffBot = exp( max(zBot / config_flux_attenuation_coefficient_subglacial_runoff, -100.0_RKIND) )
                         fracAbsorbedSubglacialRunoff = transmissionCoeffTop - transmissionCoeffBot
                       end if
                       zTop = zBot