Skip to content

Commit 4cfbe4a

Browse files
committed
Merge branch 'irenavankova/ocn/fix-subglacial-config-attenuation' (PR #6672)
Fix variables in data subglacial runoff This fixes a typo in PR #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
2 parents 6e216a5 + 5812563 commit 4cfbe4a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

components/mpas-ocean/src/shared/mpas_ocn_diagnostics.F

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3574,8 +3574,8 @@ subroutine ocn_compute_KPP_input_fields(statePool, forcingPool, &
35743574
do k = maxLevelCell(iCell), minLevelCell(iCell), -1
35753575
zBot = zTop - layerThickness(k,iCell)
35763576
if (k == minLevelCell(iCell)) then
3577-
transmissionCoeffTop = exp( max(zTop / config_flux_attenuation_coefficient_runoff, -100.0_RKIND) )
3578-
transmissionCoeffBot = exp( max(zBot / config_flux_attenuation_coefficient_runoff, -100.0_RKIND) )
3577+
transmissionCoeffTop = exp( max(zTop / config_flux_attenuation_coefficient_subglacial_runoff, -100.0_RKIND) )
3578+
transmissionCoeffBot = exp( max(zBot / config_flux_attenuation_coefficient_subglacial_runoff, -100.0_RKIND) )
35793579
fracAbsorbedSubglacialRunoff = transmissionCoeffTop - transmissionCoeffBot
35803580
end if
35813581
zTop = zBot

0 commit comments

Comments
 (0)