diff --git a/src/particle_restart_write.F90 b/src/particle_restart_write.F90
index 5f905cb5e7..0ac55bd273 100644
--- a/src/particle_restart_write.F90
+++ b/src/particle_restart_write.F90
@@ -38,7 +38,7 @@ contains
     filename = trim(filename) // '.binary'
 #endif
 
-!$omp critical (write_particle_restart)
+!$omp critical (WriteParticleRestart)
     ! Create file
     call pr % file_create(filename)
 
@@ -66,7 +66,7 @@ contains
 
     ! Close file
     call pr % file_close()
-!$omp end critical (write_particle_restart)
+!$omp end critical (WriteParticleRestart)
 
   end subroutine write_particle_restart
 
diff --git a/src/track_output.F90 b/src/track_output.F90
index 60ab7e968d..2159003ce5 100644
--- a/src/track_output.F90
+++ b/src/track_output.F90
@@ -69,12 +69,12 @@ contains
          // '_' // trim(to_str(current_gen)) // '_' // trim(to_str(p % id)) &
          // '.binary'
 #endif
-!$omp critical (finalize_particle_track)
+!$omp critical (FinalizeParticleTrack)
     call binout % file_create(fname)
     length = [3, n_tracks]
     call binout % write_data(coords, 'coordinates', length=length)
     call binout % file_close()
-!$omp end critical (finalize_particle_track)
+!$omp end critical (FinalizeParticleTrack)
     deallocate(coords)
   end subroutine finalize_particle_track