Moved the set_fill command out of the loop

MintonGroup · Dec 6, 2022 · c40683e · c40683e
1 parent 4a6e1dd
commit c40683e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"  )