diff --git a/components/mpas-cice/driver/ice_comp_mct.F b/components/mpas-cice/driver/ice_comp_mct.F index 6d1caa80673b..fc4bffd53bb4 100644 --- a/components/mpas-cice/driver/ice_comp_mct.F +++ b/components/mpas-cice/driver/ice_comp_mct.F @@ -177,6 +177,7 @@ subroutine ice_init_mct( EClock, cdata_i, x2i_i, i2x_i, NLFilename )!{{{ logical, pointer :: tempLogicalConfig character(len=StrKIND), pointer :: tempCharConfig + real (kind=RKIND), pointer :: tempRealConfig interface subroutine xml_stream_parser(xmlname, mgr_p, comm, ierr) bind(c) @@ -553,8 +554,8 @@ end subroutine xml_stream_get_attributes write (stderrUnit,*) 'Applying ICE coupling dt (s) of: ', ice_cpl_dt ! Verify the mpas time step fits into a coupling interval - call mpas_pool_get_config(domain % configs, 'config_dt', tempCharConfig) - call mpas_set_timeInterval(denInterval, timeString=tempCharConfig, ierr=ierr) + call mpas_pool_get_config(domain % configs, 'config_dt', tempRealConfig) + call mpas_set_timeInterval(denInterval, dt=tempRealConfig, ierr=ierr) call mpas_set_timeInterval(zeroInterval, S=0, ierr=ierr) call mpas_interval_division(start_time, alarmTimeStep, denInterval, numDivs, remInterval) diff --git a/components/mpasli/model b/components/mpasli/model index d5ef57916c2c..28f7c539ae1f 160000 --- a/components/mpasli/model +++ b/components/mpasli/model @@ -1 +1 @@ -Subproject commit d5ef57916c2c76d6ca0b1cc9ffd56e64c22e0ac4 +Subproject commit 28f7c539ae1fee56dd48ddc92e0462813ff731e6