From 23daad4877434b5a60c176ce8ade2d90c11b86cc Mon Sep 17 00:00:00 2001 From: Abishek Gopal Date: Mon, 29 Jun 2026 15:19:45 -0600 Subject: [PATCH 1/2] Add timer --- src/core_atmosphere/dynamics/mpas_atm_time_integration.F | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/core_atmosphere/dynamics/mpas_atm_time_integration.F b/src/core_atmosphere/dynamics/mpas_atm_time_integration.F index 227fbde862..2244f9a32d 100644 --- a/src/core_atmosphere/dynamics/mpas_atm_time_integration.F +++ b/src/core_atmosphere/dynamics/mpas_atm_time_integration.F @@ -3961,6 +3961,7 @@ subroutine atm_advance_acoustic_step_work(nCells, nEdges, nCellsSolve, cellStart end do !$acc end parallel else + call mpas_timer_start('advance_acoustic_step_3964') !$acc parallel default(present) !$acc loop gang worker collapse(2) do iCell=cellStart,cellEnd @@ -3969,6 +3970,7 @@ subroutine atm_advance_acoustic_step_work(nCells, nEdges, nCellsSolve, cellStart end do end do !$acc end parallel + call mpas_timer_stop('advance_acoustic_step_3964') end if !$OMP BARRIER From 7b47977a95fd126ece838b0a51d37469bd274e96 Mon Sep 17 00:00:00 2001 From: Pranay-Reddy-Kommera Date: Thu, 7 May 2026 10:40:49 -0600 Subject: [PATCH 2/2] Optimized a kernel in advance acoustic step at line 3964 --- src/core_atmosphere/dynamics/mpas_atm_time_integration.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core_atmosphere/dynamics/mpas_atm_time_integration.F b/src/core_atmosphere/dynamics/mpas_atm_time_integration.F index 2244f9a32d..ff6141e08a 100644 --- a/src/core_atmosphere/dynamics/mpas_atm_time_integration.F +++ b/src/core_atmosphere/dynamics/mpas_atm_time_integration.F @@ -3963,7 +3963,7 @@ subroutine atm_advance_acoustic_step_work(nCells, nEdges, nCellsSolve, cellStart else call mpas_timer_start('advance_acoustic_step_3964') !$acc parallel default(present) - !$acc loop gang worker collapse(2) + !$acc loop gang worker vector collapse(2) do iCell=cellStart,cellEnd do k=1,nVertLevels rtheta_pp_old(k,iCell) = rtheta_pp(k,iCell)