fixed indexing in netcdf_read_frame_base

MintonGroup · Sep 29, 2021 · c528b9a · c528b9a
1 parent 357345f
commit c528b9a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -354,7 +354,7 @@ module function netcdf_read_frame_base(self, iu, param) result(ierr)
                n = count(tpmask(:) .and. validmask(:))
             end select
 
-            do i = j, n
+            do j = 1, n
                idslot = ind(j)
 
                if (param%in_form == XV) then