Skip to content

Commit 66ee2a1

Browse files
committed
remove user_setservices
1 parent 266f959 commit 66ee2a1

2 files changed

Lines changed: 2 additions & 2 deletions

File tree

CHANGELOG.md

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
1010
### Removed
1111

1212
### Changed
13+
- Updated MAPL\_GridCompAddCHild to new interface that just takes a procedure
1314
- Updated MAPL\_GridCompAddSpec calls to new interface
1415
- Pushed rename of MAPL entities down into MAPL.
1516
- Remove direct `MAPL.generic3g` CMake link dependency from GA_Environment,

ESMF/GOCART2G_GridComp/GOCART2G_GridCompMod.F90

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1180,7 +1180,6 @@ subroutine create_instances_(self, gc, rc)
11801180
end subroutine create_instances_
11811181

11821182
subroutine add_children__(gc, species, setservices, rc)
1183-
use MAPL, only: user_setservices
11841183
type (ESMF_GridComp), intent(inout) :: gc
11851184
type(Constituent), intent(inout) :: species
11861185
external :: setservices
@@ -1194,7 +1193,7 @@ subroutine add_children__(gc, species, setservices, rc)
11941193
child_name = species%instances(iter)%name
11951194
config_file = species%name // "_instance_" // child_name // ".yaml"
11961195
hconfig = ESMF_HConfigCreate(filename=config_file, _RC)
1197-
call MAPL_GridCompAddChild(gc, child_name, user_setservices(setservices), hconfig, _RC)
1196+
call MAPL_GridCompAddChild(gc, child_name, setservices, hconfig, _RC)
11981197
call ESMF_HConfigDestroy(hconfig, _RC)
11991198
end do
12001199

0 commit comments

Comments
 (0)