From a6d379e1d921a9adb3f1eb471bf1f200ff33b44b Mon Sep 17 00:00:00 2001 From: NeilBarton-NOAA Date: Tue, 16 Jul 2024 19:58:31 +0000 Subject: [PATCH] make sure heat_source is allocated with skeb being true --- model/dyn_core.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/model/dyn_core.F90 b/model/dyn_core.F90 index 15df82fc3..ce53b8467 100644 --- a/model/dyn_core.F90 +++ b/model/dyn_core.F90 @@ -383,7 +383,7 @@ subroutine dyn_core(npx, npy, npz, ng, sphum, nq, bdt, n_map, n_split, zvir, cp, call init_ijk_mem(is, ie+1, jsd, jed, npz, cx, 0.) call init_ijk_mem(isd, ied, js, je+1, npz, cy, 0.) - if ( flagstruct%d_con > 1.0E-5 ) then + if ( flagstruct%d_con > 1.0E-5 .OR. flagstruct%do_skeb) then allocate( heat_source(isd:ied, jsd:jed, npz) ) call init_ijk_mem(isd, ied, jsd, jed, npz, heat_source, 0.) endif