@@ -8,6 +8,7 @@ module mapl_OpenMP_Support
88 use mapl_Subgrid, only: Interval, make_subgrids, find_bounds
99 use mapl_StateAddMethodImpl, only: CallbackMap, CallbackMapIterator, CallbackMethodWrapper, get_callbacks
1010 use mapl_StateAddMethodImpl, only: operator (/= )
11+ use mapl_ESMF_Interfaces, only: MAPL_UserCompGetInternalState, MAPL_UserCompSetInternalState
1112 ! $ use omp_lib
1213
1314 implicit none (type,external )
@@ -390,12 +391,12 @@ function make_subgridcomps(GridComp, run_entry_points, num_grids, unusable, rc)
390391 end do
391392
392393 do ilabel = 1 , size (labels)
393- call ESMF_UserCompGetInternalState (GridComp, trim (labels(ilabel)), wrap, status)
394+ call MAPL_UserCompGetInternalState (GridComp, trim (labels(ilabel)), wrap, status)
394395 has_private_state = (status == ESMF_SUCCESS)
395396 do i = 1 , num_grids
396397 associate (gc = > subgridcomps(i) )
397398 if (has_private_state) then
398- call ESMF_UserCompSetInternalState (gc, trim (labels(ilabel)), wrap, status)
399+ call MAPL_UserCompSetInternalState (gc, trim (labels(ilabel)), wrap, status)
399400 _VERIFY(status)
400401 end if
401402 end associate
0 commit comments