diff --git a/icebergs_io.F90 b/icebergs_io.F90 index 6935b56..bac10b4 100644 --- a/icebergs_io.F90 +++ b/icebergs_io.F90 @@ -859,7 +859,7 @@ subroutine write_trajectory(trajectory) if(associated(trajectory)) then this=>trajectory do while (associated(this)) - call push_posn(traj4io, this) + call append_posn(traj4io, this) this=>this%next enddo trajectory => null()