diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2009-11-13 15:03:26 -0600 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2009-11-13 15:03:26 -0600 |
commit | 95358bf6297d264a25af7869ac46280f67a19312 (patch) | |
tree | e951f8a6c7ecaee3d3526f8d9baf5b624420db22 /Tools/CodeGen/CodeGen.m | |
parent | 1e573192eae29f07022f4649685855686b2cee93 (diff) |
Provide capability GenericFD
Use cctk_lssh instead of cctk_lsh to loop over grid functions
Rename schedule item "apply boundary conditions" to "select boundary conditions"
Introduce parameter for number of timelevels for RHS grid functions
Diffstat (limited to 'Tools/CodeGen/CodeGen.m')
-rw-r--r-- | Tools/CodeGen/CodeGen.m | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Tools/CodeGen/CodeGen.m b/Tools/CodeGen/CodeGen.m index 623dd99..c51eaf0 100644 --- a/Tools/CodeGen/CodeGen.m +++ b/Tools/CodeGen/CodeGen.m @@ -577,7 +577,7 @@ GridLoop[block_] := "#pragma omp parallel\n", "LC_LOOP3 (unnamed,\n", " i,j,k, istart,jstart,kstart, iend,jend,kend,\n", - " cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)])\n", + " cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])\n", "{\n", indentBlock[ { @@ -595,7 +595,7 @@ GridLoop[block_] := "#pragma omp parallel\n", "LC_LOOP3 (unnamed,\n", " i,j,k, istart,jstart,kstart, iend,jend,kend,\n", - " cctk_lssh(CCTK_LSSH_IDX(0,1)),cctk_lssh(CCTK_LSSH_IDX(0,2)),cctk_lssh(CCTK_LSSH_IDX(0,3)))\n", + " cctk_lsh(1),cctk_lsh(2),cctk_lsh(3))\n", indentBlock[block], "LC_ENDLOOP3 (unnamed)\n" } @@ -631,7 +631,7 @@ GenericGridLoopUsingLoopControl[functionName_, block_] := "#pragma omp parallel\n", "LC_LOOP3 (", functionName, ",\n", " i,j,k, min[0],min[1],min[2], max[0],max[1],max[2],\n", - " cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)])\n", + " cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])\n", "{\n", indentBlock[ { @@ -670,9 +670,9 @@ BoundaryLoop[block_] := AssignVariable[arrayElement["bmin", 0], "is_physbnd[0*2+0] ? 0 : imin[0]"], AssignVariable[arrayElement["bmin", 1], "is_physbnd[1*2+0] ? 0 : imin[1]"], AssignVariable[arrayElement["bmin", 2], "is_physbnd[2*2+0] ? 0 : imin[2]"], - AssignVariable[arrayElement["bmax", 0], "is_physbnd[0*2+1] ? cctk_lssh[CCTK_LSSH_IDX(0,0)] : imax[0]"], - AssignVariable[arrayElement["bmax", 1], "is_physbnd[1*2+1] ? cctk_lssh[CCTK_LSSH_IDX(0,1)] : imax[1]"], - AssignVariable[arrayElement["bmax", 2], "is_physbnd[2*2+1] ? cctk_lssh[CCTK_LSSH_IDX(0,2)] : imax[2]"]}], + AssignVariable[arrayElement["bmax", 0], "is_physbnd[0*2+1] ? cctk_from[CCTK_LSSH_IDX(0,0)] : imax[0]"], + AssignVariable[arrayElement["bmax", 1], "is_physbnd[1*2+1] ? cctk_from[CCTK_LSSH_IDX(0,1)] : imax[1]"], + AssignVariable[arrayElement["bmax", 2], "is_physbnd[2*2+1] ? cctk_from[CCTK_LSSH_IDX(0,2)] : imax[2]"]}], CommentedBlock["Loop over all faces", loopOverInteger["dir", "0", "3", |