Skip to content

Commit

Permalink
Merge pull request #251 from GEOS-ESM/hotfix/bmauer/#250-fix-course-g…
Browse files Browse the repository at this point in the history
…rids

Fixes #250
  • Loading branch information
mathomp4 authored Mar 10, 2020
2 parents 4b99ddd + 02fd56e commit 0e9cc3f
Show file tree
Hide file tree
Showing 2 changed files with 12 additions and 0 deletions.
6 changes: 6 additions & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,12 @@ All notable changes to this project will be documented in this file.
The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).

## [2.0.2] - 2020-03-10

### Fixed

- Fix for handling coarse grids at high-resolution in ExtData

## [2.0.1] - 2019-03-02

### Fixed
Expand Down
6 changes: 6 additions & 0 deletions MAPL_Base/MAPL_newCFIO.F90
Original file line number Diff line number Diff line change
Expand Up @@ -849,6 +849,9 @@ subroutine request_data_from_file(this,filename,timeindex,rc)
if (hasDE) then
call ESMF_FieldGet(input_fields(I),0,farrayPtr=ptr2d,rc=status)
_VERIFY(status)
else
allocate(ptr2d(0,0),stat=status)
_VERIFY(status)
end if
ref=ArrayReference(ptr2d)
start = [i1, j1, timeIndex] ! (i,j,t)
Expand All @@ -864,6 +867,9 @@ subroutine request_data_from_file(this,filename,timeindex,rc)
if (hasDE) then
call ESMF_FieldGet(input_fields(I),0,farrayPtr=ptr3d,rc=status)
_VERIFY(status)
else
allocate(ptr3d(0,0,0),stat=status)
_VERIFY(status)
end if
ref=ArrayReference(ptr3d)
start = [i1, j1, 1, timeIndex] ! (i,j,t)
Expand Down

0 comments on commit 0e9cc3f

Please sign in to comment.