From 4f17d14cd17666ac06891f18dd1b33dcb46f6e3d Mon Sep 17 00:00:00 2001 From: Don Morton <Don.Morton@borealscicomp.com> Date: Fri, 16 Dec 2016 00:07:40 +0000 Subject: [PATCH] Minor bug fixes in reading from NetCDF4 files to 3D arrays --- flexpart_code/fpmetbinary_mod.F90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/flexpart_code/fpmetbinary_mod.F90 b/flexpart_code/fpmetbinary_mod.F90 index 9b2b94d0..7b91b0e7 100644 --- a/flexpart_code/fpmetbinary_mod.F90 +++ b/flexpart_code/fpmetbinary_mod.F90 @@ -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)) -- GitLab