Skip to content

Commit

Permalink
Revert "Merge pull request #1326 from GEOS-ESM/feature/wjiang/exit_af…
Browse files Browse the repository at this point in the history
…ter_connected"

This reverts commit 852cd94, reversing
changes made to 96f4916.
  • Loading branch information
mathomp4 committed Jan 31, 2022
1 parent 852cd94 commit c571f30
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 7 deletions.
2 changes: 0 additions & 2 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -15,8 +15,6 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0

### Changed

- A small performance improvement. cycle => exit in MAPL_Generic.F90

### Removed

### Deprecated
Expand Down
13 changes: 8 additions & 5 deletions generic/MAPL_Generic.F90
Original file line number Diff line number Diff line change
Expand Up @@ -7019,15 +7019,18 @@ recursive subroutine MAPL_WireComponent(GC, RC)

_VERIFY(status)
SATISFIED = .true.
STAT = ior(STAT,MAPL_CplSATISFIED)
call MAPL_VarSpecSet(IM_SPECS(K), STAT=STAT, RC=status)
_VERIFY(status)
exit
cycle
end if
end do

if (SATISFIED) then
STAT = ior(STAT,MAPL_CplSATISFIED)
call MAPL_VarSpecSet(IM_SPECS(K), STAT=STAT, RC=status)
_VERIFY(status)
end if


do J=1,NC
if(I==J) cycle
gridcomp => STATE%get_child_gridcomp(J)
call MAPL_GridCompGetVarSpecs(gridcomp, EXPORT=EX_SPECS, RC=status)
_VERIFY(status)
Expand Down

0 comments on commit c571f30

Please sign in to comment.