From 357345f28f9df86e3efe585408d2dad182374777 Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Wed, 29 Sep 2021 14:49:56 -0400 Subject: [PATCH] fixed validmask in netcdf_read_frame_base --- src/netcdf/netcdf.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 04ba92bc0..a197ac944 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -348,10 +348,10 @@ module function netcdf_read_frame_base(self, iu, param) result(ierr) select type(self) class is (swiftest_pl) ind(:) = pack(ind(:), (.not.tpmask(:) .and. validmask(:))) - n = count(.not.tpmask(:)) + n = count(.not.tpmask(:) .and. validmask(:)) class is (swiftest_tp) ind(:) = pack(ind(:), (tpmask(:) .and. validmask(:))) - n = count(tpmask(:)) + n = count(tpmask(:) .and. validmask(:)) end select do i = j, n