diff --git a/src/core_init_atmosphere/mpas_init_atm_cases.F b/src/core_init_atmosphere/mpas_init_atm_cases.F index fb67a5164b..1381612e9f 100644 --- a/src/core_init_atmosphere/mpas_init_atm_cases.F +++ b/src/core_init_atmosphere/mpas_init_atm_cases.F @@ -5623,7 +5623,7 @@ subroutine init_atm_case_lbc(timestamp, block, mesh, nCells, nEdges, nVertLevels call mpas_pool_get_dimension(dims, 'nCellsSolve', nCellsSolve) nVertLevelsP1 = nVertLevels + 1 - call mpas_pool_get_dimension(state, 'index_qv', index_qv) + call mpas_pool_get_dimension(lbc_state, 'index_lbc_qv', index_qv) etavs = (1.0_RKIND - 0.252_RKIND) * pii / 2.0_RKIND rcv = rgas / (cp - rgas)