Skip to content

Commit

Permalink
Merge pull request #340 from GEOS-ESM/hotfix/bmauer/fixes-#339
Browse files Browse the repository at this point in the history
actually code generate_file_bounds
  • Loading branch information
atrayano authored Apr 24, 2020
2 parents 9c39b3e + 744d8d3 commit 01a71d7
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 5 deletions.
1 change: 1 addition & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0

### Changed
### Fixed
- Fixed bug when output fields on tripolar grid in History
- Fixed bug during replay when the refresh template in ExtData is a time interval
### Removed
### Added
Expand Down
15 changes: 10 additions & 5 deletions MAPL_Base/MAPL_TripolarGridFactory.F90
Original file line number Diff line number Diff line change
Expand Up @@ -933,12 +933,17 @@ subroutine generate_file_bounds(this,grid,local_start,global_start,global_count,
integer, allocatable, intent(inout) :: global_count(:)
integer, optional, intent(out) :: rc

integer :: status
integer :: global_dim(3), i1,j1,in,jn
character(len=*), parameter :: Iam = MOD_NAME // 'generate_file_bounds'
_UNUSED_DUMMY(this)
_UNUSED_DUMMY(grid)
_UNUSED_DUMMY(local_start)
_UNUSED_DUMMY(global_start)
_UNUSED_DUMMY(global_count)
_UNUSED_DUMMY(rc)

call MAPL_GridGet(grid,globalCellCountPerDim=global_dim,rc=status)
_VERIFY(status)
call MAPL_GridGetInterior(grid,i1,in,j1,jn)
allocate(local_start,source=[i1,j1])
allocate(global_start,source=[1,1])
allocate(global_count,source=[global_dim(1),global_dim(2)])

end subroutine generate_file_bounds

Expand Down

0 comments on commit 01a71d7

Please sign in to comment.