diff options
-rw-r--r-- | src/interpolate.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/interpolate.c b/src/interpolate.c index 2813c83..6fb3b16 100644 --- a/src/interpolate.c +++ b/src/interpolate.c @@ -77,6 +77,14 @@ Rot180_CheckTensorTypes (CCTK_ARGUMENTS) } else if (CCTK_EQUALS (tensortypealias, "u") || CCTK_EQUALS (tensortypealias, "d")) { /* vector */ + if (numvars != 3) { + char * groupname = CCTK_GroupName(gi); + assert (groupname); + CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING, + "Group \"%s\" has the tensor type alias \"u\", but does not contain 3 elements (but %d)", + groupname, numvars); + free (groupname); + } assert (numvars == 3); } else if (CCTK_EQUALS (tensortypealias, "4u") || CCTK_EQUALS (tensortypealias, "4d")) { |