diff --git a/ref/src/sw_core.F90 b/ref/src/sw_core.F90
index fd16390..71f5ed2 100644
--- a/ref/src/sw_core.F90
+++ b/ref/src/sw_core.F90
@@ -617,7 +617,7 @@ end subroutine divergence_corner
 
 
   !------------------------------------------------------------------
-  ! divergence_corner
+  ! d2a2c_vect
   !
   ! There is a limit to how far this routine can fill uc and vc in the
   ! halo, and so either mpp_update_domains or some sort of boundary