Skip to content

Issue # 1411: Localize OpenMP thread use and count to the GCs theaded with mini-GS approach #1412

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
aoloso wants to merge 2 commits into
base: feature/sdrabenh/gcm_v12
Choose a base branch
from
Open

Issue # 1411: Localize OpenMP thread use and count to the GCs theaded with mini-GS approach #1412

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
e125306
Changes to correctly and independently set number of OpenMP threads a…
aoloso May 12, 2026
73aa34d
Merge branch 'feature/sdrabenh/gcm_v12' into bugfix/aoloso/gridComp_l…
aoloso May 12, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 8 additions & 4 deletions GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSgwd_GridComp/GEOS_GwdGridComp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -39,6 +39,7 @@ module GEOS_GwdGridCompMod
use gw_drag_ncar, only: gw_intr_ncar

use gw_drag, only: gw_intr
!$ use omp_lib

implicit none
private
Expand Down Expand Up @@ -131,9 +132,6 @@ subroutine SetServices ( GC, RC )
allocate (self, _STAT)
wrap%ptr => self

num_threads = MAPL_get_num_threads()
allocate(self%workspaces(0:num_threads-1), _STAT)

! Set the Run entry point
! -----------------------

Expand All @@ -147,8 +145,13 @@ subroutine SetServices ( GC, RC )
call ESMF_ConfigGetAttribute (myCF, use_threads, label='use_threads:', default=.FALSE., _RC)
! set use_threads
call MAPL%set_use_threads(use_threads)
! set num_threads
num_threads = 1
if (use_threads) num_threads = omp_get_max_threads()
call MAPL%set_num_threads(num_threads)
call ESMF_ConfigDestroy(myCF, _RC)

allocate(self%workspaces(0:num_threads-1), _STAT)
! We need to get NCAR_NRDG because this is used in the GWD_Internal___.h auto-generated
! code via the MAPL ACG
call MAPL_GetResource( MAPL, self%NCAR_NRDG, Label="NCAR_NRDG:", default=0, _RC)
Expand Down Expand Up @@ -383,7 +386,8 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC )
! Beres DeepCu
call MAPL_GetResource( MAPL, NCAR_DC_BERES_SRC_LEVEL, "NCAR_DC_BERES_SRC_LEVEL:", DEFAULT=70000.0, _RC)
call MAPL_GetResource( MAPL, NCAR_DC_BERES, "NCAR_DC_BERES:", DEFAULT=.TRUE., _RC)
num_threads = MAPL_get_num_threads()
!num_threads = MAPL_get_num_threads()
num_threads = MAPL%get_num_threads()
bounds = MAPL_find_bounds(JM, num_threads)
do thread = 0, num_threads-1
JM_thread = bounds(thread+1)%max - bounds(thread+1)%min + 1
Expand Down
Loading