From ba0688bb0d6bb38f729076ce4c4b21b04a6a8877 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Wed, 16 Jul 2025 13:29:41 -0600 Subject: [PATCH] Fix missing array allocation for DO_SKEB --- src/parameterizations/stochastic/MOM_stochastics.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/parameterizations/stochastic/MOM_stochastics.F90 b/src/parameterizations/stochastic/MOM_stochastics.F90 index ddc34fdbaa..c57919fd66 100644 --- a/src/parameterizations/stochastic/MOM_stochastics.F90 +++ b/src/parameterizations/stochastic/MOM_stochastics.F90 @@ -171,10 +171,10 @@ subroutine stochastics_init(dt, grid, GV, CS, param_file, diag, Time) return endif - if (CS%do_sppt) allocate(CS%sppt_wts(grid%isd:grid%ied,grid%jsd:grid%jed)) + if ((CS%do_sppt) .or. (CS%do_skeb)) allocate(CS%sppt_wts(grid%isd:grid%ied,grid%jsd:grid%jed)) if (CS%do_skeb) allocate(CS%skeb_wts(grid%isdB:grid%iedB,grid%jsdB:grid%jedB)) if (CS%do_skeb) allocate(CS%skeb_diss(grid%isd:grid%ied,grid%jsd:grid%jed,GV%ke), source=0.) - if (CS%pert_epbl) then + if ((CS%pert_epbl) .or. (CS%do_skeb)) then allocate(CS%epbl1_wts(grid%isd:grid%ied,grid%jsd:grid%jed)) allocate(CS%epbl2_wts(grid%isd:grid%ied,grid%jsd:grid%jed)) endif