Skip to content
Snippets Groups Projects
Commit 4f17d14c authored by Don Morton's avatar Don Morton
Browse files

Minor bug fixes in reading from NetCDF4 files to 3D arrays

parent 929ae374
No related branches found
No related tags found
No related merge requests found
......@@ -538,8 +538,8 @@ CONTAINS
ncret = nf90_put_var(ncid, ncvarid, &
& pplev(0:nxmax-1, 0:nymax-1, 1:nuvzmax, cm_index))
PRINT *, 'SUM(tt(0:nxmax-1, 0:nymax-1, 1:nzmax, cm_index)): ', &
& SUM(tt(0:nxmax-1,0:nymax-1,1:nzmax, cm_index))
! 2d fields
......@@ -828,7 +828,7 @@ CONTAINS
ncret = nf90_get_var(ncid, ncvarid, ww)
ncret = nf90_inq_varid(ncid, 'tt', ncvarid)
ncret = nf90_get_var(ncid, ncvarid, tt)
ncret = nf90_get_var(ncid, ncvarid, tt(0:nxmax-1,0:nzmax-1,1:nzmax,cm_index))
ncret = nf90_inq_varid(ncid, 'qv', ncvarid)
ncret = nf90_get_var(ncid, ncvarid, qv)
......@@ -851,8 +851,8 @@ CONTAINS
ncret = nf90_inq_varid(ncid, 'pplev', ncvarid)
ncret = nf90_get_var(ncid, ncvarid, pplev)
PRINT *, 'SUM(tt(0:nxmax-1, 0:nymax-1, 1:nzmax, cm_index)): ', &
& SUM(tt(0:nxmax-1,0:nymax-1,1:nzmax, cm_index))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment