Merge pull request #570 from EPIC-model/fix-rejection-method

Fix rejection method
EPIC-model · Jul 25, 2024 · ec2ff53 · ec2ff53
2 parents 50dc939 + 8b867c3
commit ec2ff53
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/3d/parcels/parcel_netcdf.f90 b/src/3d/parcels/parcel_netcdf.f90
@@ -458,12 +458,12 @@ subroutine read_netcdf_parcels(fname)
                 end_index = min(max_num_parcels, n_total)
                 pfirst = 1
                 n_remaining = n_total
+                n_parcels = 0
 
                 do while (start_index <= end_index)
 
                     n_read = end_index - start_index + 1
                     n_remaining = n_remaining - n_read
-                    n_parcels = pfirst + n_read - 1
 
                     call rejection_method(start_index, end_index, pfirst)