Skip to content

Commit

Permalink
Merge branch 'develop' into release/MAPL-v3
Browse files Browse the repository at this point in the history
  • Loading branch information
mathomp4 committed Nov 14, 2024
2 parents 6a78134 + ad0a569 commit e0edfb7
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 7 deletions.
1 change: 1 addition & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -75,6 +75,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0

### Changed

- refactored tableEnd check
- Added commandline options to `checkpoint_benchmark.x` and `restart_benchmark.x` to allow for easier testing of different configurations. Note that the old configuration file style of input is allowed via the `--config_file` option (which overrides any other command line options)
- Update ESMF version for Baselibs to match that of Spack for consistency
- Update `components.yaml`
Expand Down
12 changes: 5 additions & 7 deletions gridcomps/Cap/MAPL_CapGridComp.F90
Original file line number Diff line number Diff line change
Expand Up @@ -967,24 +967,22 @@ end function get_CapGridComp_from_gc


function get_vec_from_config(config, key, rc) result(vec)
type(StringVector) :: vec
type(ESMF_Config), intent(inout) :: config
character(len=*), intent(in) :: key
integer, intent(out), optional :: rc
logical :: present, tableEnd
integer :: status
character(len=ESMF_MAXSTR) :: cap_import
type(StringVector) :: vec
character(len=ESMF_MAXSTR) :: value

call ESMF_ConfigFindLabel(config, key//":", isPresent = present, _RC)

cap_import = ""
if (present) then

do while(trim(cap_import) /= "::")
do
call ESMF_ConfigNextLine(config, tableEnd=tableEnd, _RC)
if (tableEnd) exit
call ESMF_ConfigGetAttribute(config, cap_import, _RC)
if (trim(cap_import) /= "::") call vec%push_back(trim(cap_import))
call ESMF_ConfigGetAttribute(config, value, _RC)
call vec%push_back(trim(value))
end do
end if
_RETURN(_SUCCESS)
Expand Down

0 comments on commit e0edfb7

Please sign in to comment.