From c40683ed8511eeed4145c364b8817381ab19bcb3 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 6 Dec 2022 11:33:45 -0500 Subject: [PATCH] Moved the set_fill command out of the loop --- src/symba/symba_io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90 index bb84af1c3..2bec44ffb 100644 --- a/src/symba/symba_io.f90 +++ b/src/symba/symba_io.f90 @@ -150,12 +150,12 @@ module subroutine symba_io_encounter_write_frame(self, nc, param) character(len=NAMELEN) :: charstring tslot = nc%ienc_frame + call check( nf90_set_fill(nc%id, nf90_nofill, old_mode), "symba_io_encounter_write_frame nf90_set_fill" ) select type(pl => self%pl) class is (symba_pl) n = size(pl%id(:)) do i = 1, n idslot = pl%id(i) - call check( nf90_set_fill(nc%id, nf90_nofill, old_mode), "symba_io_encounter_write_frame nf90_set_fill" ) call check( nf90_put_var(nc%id, nc%time_varid, self%t, start=[tslot]), "symba_io_encounter_write_frame nf90_put_var time_varid" ) call check( nf90_put_var(nc%id, nc%id_varid, pl%id(i), start=[idslot]), "symba_io_encounter_write_frame nf90_put_var id_varid" ) call check( nf90_put_var(nc%id, nc%rh_varid, pl%rh(:,i), start=[1,idslot,tslot], count=[NDIM,1,1]), "symba_io_encounter_write_frame nf90_put_var rh_varid" )