From 172063881cf88782cb92510d69d22e6fdb504b3c Mon Sep 17 00:00:00 2001 From: Laura Fowler Date: Mon, 2 Dec 2024 14:30:31 -0700 Subject: [PATCH] * In ./src/core_init_atmosphere/mpas_init_atm_thompson_aerosols, get the dimension of index_nifa and index_nwfa from the pool lbc_state instead of state. Corrected the call to subroutine init_atm_thompson_aerosols_lbc accordingly. * In ./src/core_init_atmosphere/mpas_init_atm_thompson_aerosols.F, replaced the index name of nifa and nwfa from index_nifa (index_nwfa) to index_lbc_nifa (index_lbc_nwfa) from the pool lbc_state. --- src/core_init_atmosphere/mpas_init_atm_cases.F | 2 +- src/core_init_atmosphere/mpas_init_atm_thompson_aerosols.F | 7 +++---- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/src/core_init_atmosphere/mpas_init_atm_cases.F b/src/core_init_atmosphere/mpas_init_atm_cases.F index 7d43b5ee83..7c2a27beaf 100644 --- a/src/core_init_atmosphere/mpas_init_atm_cases.F +++ b/src/core_init_atmosphere/mpas_init_atm_cases.F @@ -331,7 +331,7 @@ subroutine init_atm_setup_case(domain, stream_manager) diag, lbc_state, block_ptr % dimensions, block_ptr % configs) call mpas_get_time(start_time, dateTimeString=timeStart) - call init_atm_thompson_aerosols_lbc(timeString, timeStart, block_ptr, mesh, diag, state, lbc_state) + call init_atm_thompson_aerosols_lbc(timeString, timeStart, block_ptr, mesh, diag, lbc_state) block_ptr => block_ptr % next end do diff --git a/src/core_init_atmosphere/mpas_init_atm_thompson_aerosols.F b/src/core_init_atmosphere/mpas_init_atm_thompson_aerosols.F index 660a836e6e..e0099886eb 100644 --- a/src/core_init_atmosphere/mpas_init_atm_thompson_aerosols.F +++ b/src/core_init_atmosphere/mpas_init_atm_thompson_aerosols.F @@ -719,13 +719,12 @@ subroutine init_hinterp_gocart(block,mesh) end subroutine init_hinterp_gocart !================================================================================================================= - subroutine init_atm_thompson_aerosols_lbc(timestamp,timestart,block,mesh,diag,state,lbc_state) + subroutine init_atm_thompson_aerosols_lbc(timestamp,timestart,block,mesh,diag,lbc_state) !================================================================================================================= !input arguments: character(len=StrKIND),intent(in):: timestart,timestamp type(mpas_pool_type),intent(in):: diag - type(mpas_pool_type),intent(in):: state !inout arguments: type(block_type),intent(inout),target:: block @@ -771,8 +770,8 @@ subroutine init_atm_thompson_aerosols_lbc(timestamp,timestart,block,mesh,diag,st call mpas_pool_get_dimension(mesh,'nVertLevels' ,nVertLevels ) call mpas_pool_get_dimension(mesh,'nMonths' ,nMonths ) - call mpas_pool_get_dimension(state,'index_nifa',index_nifa) - call mpas_pool_get_dimension(state,'index_nwfa',index_nwfa) + call mpas_pool_get_dimension(lbc_state,'index_lbc_nifa',index_nifa) + call mpas_pool_get_dimension(lbc_state,'index_lbc_nwfa',index_nwfa) call mpas_pool_get_array(diag,'pressure_base',pressure)