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