Skip to content

Commit

Permalink
Added support to lon and lat dimensions in forcing files (#21)
Browse files Browse the repository at this point in the history
  • Loading branch information
aidanheerdegen authored May 31, 2019
1 parent b77aecd commit b6caeab
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions libcouple/src/util.F90
Original file line number Diff line number Diff line change
Expand Up @@ -130,11 +130,11 @@ subroutine get_var_dims(ncid, varid, ndims, nx, ny, time)
time = len
elseif (trim(dimname) == 'latitude' .or. trim(dimname) == 'AY' .or. &
trim(dimname) == 'ny' .or. trim(dimname) == 'LAT' .or. &
trim(dimname) == 'nj') then
trim(dimname) == 'lat' .or. trim(dimname) == 'nj') then
ny = len
elseif (trim(dimname) == 'longitude' .or. trim(dimname) == 'AX' .or. &
trim(dimname) == 'nx' .or. trim(dimname) == 'LON' .or. &
trim(dimname) == 'ni') then
trim(dimname) == 'lon' .or. trim(dimname) == 'ni') then
nx = len
else
call assert(.false., 'get_var_dims: Unsupported dimension name '//trim(dimname))
Expand Down

0 comments on commit b6caeab

Please sign in to comment.