Skip to content
Snippets Groups Projects
Commit a2867f0e authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Fix missing destructor call.

parent 9076e822
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
examples/pio/collectData2003.F90
+ 2
− 0
View file @ a2867f0e
......@@ -231,6 +231,8 @@ CONTAINS
CALL zaxisDestroy(zaxisID2)
CALL gridDestroy(gridID)
#ifdef USE_MPI
CALL xt_idxlist_delete(vardeco1%partdesc)
CALL xt_idxlist_delete(vardeco2%partdesc)
CALL mpi_barrier(commModel, ierror)
IF (ierror /= mpi_success) STOP 1
#endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Imprint | Privacy Policy