From 5c6f47caeec90aa780cf6a1b11b12b61e7873154 Mon Sep 17 00:00:00 2001 From: Mark Petersen Date: Tue, 19 Sep 2023 14:01:53 -0500 Subject: [PATCH] add domain to RK4 subroutine --- .../src/mode_forward/mpas_ocn_time_integration_rk4.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_rk4.F b/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_rk4.F index b7735fdb46b6..8a3c633536c0 100644 --- a/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_rk4.F +++ b/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_rk4.F @@ -603,7 +603,7 @@ subroutine ocn_time_integrator_rk4(domain, dt)!{{{ ! Rescale tracers block => domain % blocklist do while(associated(block)) - call ocn_time_integrator_rk4_cleanup(block, dt, err) + call ocn_time_integrator_rk4_cleanup(domain, block, dt, err) block => block % next end do @@ -1549,7 +1549,8 @@ subroutine ocn_time_integrator_rk4_accumulate_update(block, rkWeight, err)!{{{ end subroutine ocn_time_integrator_rk4_accumulate_update!}}} - subroutine ocn_time_integrator_rk4_cleanup(block, dt, err)!{{{ + subroutine ocn_time_integrator_rk4_cleanup(domain, block, dt, err)!{{{ + type (domain_type), intent(inout) :: domain !< Input/Output: domain information type (block_type), intent(in) :: block real (kind=RKIND), intent(in) :: dt integer, intent(out) :: err