Fix order of trajectory segments for local PE

- For either force_all_pes_traj or the local trajectory segments to the I/O PE, the segments were out of order.
NOAA-GFDL · Jul 17, 2015 · 255fb34 · 255fb34
1 parent 314713b
commit 255fb34
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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()