diff options
Diffstat (limited to 'src/apply.c')
| -rw-r--r-- | src/apply.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/apply.c b/src/apply.c index 78a2bcb..4492579 100644 --- a/src/apply.c +++ b/src/apply.c @@ -227,6 +227,7 @@ BndReflectVI (cGH const * restrict const cctkGH, /* Get and check tensor type information */ ierr = Util_TableGetString (table, sizeof tensortypealias, tensortypealias, "tensortypealias"); + int tensortype_is_explicit = 1; if (ierr == UTIL_ERROR_TABLE_NO_SUCH_KEY) { groupname = CCTK_GroupName(gi); assert (groupname); @@ -235,6 +236,7 @@ BndReflectVI (cGH const * restrict const cctkGH, groupname); free (groupname); strcpy (tensortypealias, "scalar"); + tensortype_is_explicit = 0; } else if (ierr<0) { groupname = CCTK_GroupName(gi); assert (groupname); @@ -249,7 +251,7 @@ BndReflectVI (cGH const * restrict const cctkGH, if (CCTK_EQUALS (tensortypealias, "scalar")) { /* scalar */ - if (numvars != 1) { + if (numvars != 1 && ! tensortype_is_explicit) { groupname = CCTK_GroupName(gi); assert (groupname); CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING, @@ -260,7 +262,8 @@ BndReflectVI (cGH const * restrict const cctkGH, ttype = SCALAR; tcomponent = 0; } - else if (CCTK_EQUALS (tensortypealias, "u")) + else if (CCTK_EQUALS (tensortypealias, "u") + || CCTK_EQUALS (tensortypealias, "d")) { /* vector */ assert (numvars == 3); |