diff --git a/src/particle_restart_write.F90 b/src/particle_restart_write.F90 index ba22d19d0e..f76537aa38 100644 --- a/src/particle_restart_write.F90 +++ b/src/particle_restart_write.F90 @@ -38,6 +38,7 @@ contains filename = trim(filename) // '.binary' #endif +!$omp critical ! Create file call pr % file_create(filename) @@ -59,6 +60,7 @@ contains ! Close file call pr % file_close() +!$omp end critical end subroutine write_particle_restart