diff --git a/CHANGELOG.md b/CHANGELOG.md index 64b19a230e50..8508ef3b98a5 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -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 diff --git a/MAPL_Base/MAPL_newCFIO.F90 b/MAPL_Base/MAPL_newCFIO.F90 index 5b4c76664897..a28126560527 100644 --- a/MAPL_Base/MAPL_newCFIO.F90 +++ b/MAPL_Base/MAPL_newCFIO.F90 @@ -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) @@ -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)