source: CIVL/mods/dev.civl.abc/examples/fortran/flash/heat/_Grid_getBlkIndexLimits.F90

main
Last change on this file was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5664 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 670 bytes
Line 
1subroutine Grid_getBlkIndexLimits(blockId, blkLimits, blkLimitsGC)
2
3 implicit none
4
5 integer,intent(IN) :: blockId
6 integer,dimension(2,MDIM),intent(OUT) :: blkLimits,blkLimitsGC
7
8 blkLimits(1,IAXIS) = 1
9 blkLimits(HIGH,IAXIS) = NXB + CONSTANT_TWO*NGUARD*K1D
10 blkLimits(1,JAXIS) = 1
11 blkLimits(HIGH,JAXIS) = NYB + CONSTANT_TWO*NGUARD*K1D
12 blkLimits(1,KAXIS) = 1
13 blkLimits(HIGH,KAXIS) = NZB + CONSTANT_TWO*NGUARD*K1D
14
15 blkLimitsGC(LOW,IAXIS) = 1
16 blkLimitsGC(HIGH,IAXIS) = 1 + 2*NGUARD + NIDX/NPROC -1
17 blkLimitsGC(LOW,JAXIS) = 1
18 blkLimitsGC(HIGH,JAXIS) = 1
19 blkLimitsGC(LOW,KAXIS) = 1
20 blkLimitsGC(HIGH,KAXIS) = 1
21
22end subroutine Grid_getBlkIndexLimits
Note: See TracBrowser for help on using the repository browser.