source:
NEMO/branches/UKMO/BPC_miniapp/OpenACC/tiletype.F90
@
11574
Last change on this file since 11574 was 10838, checked in by wayne_gaudin, 5 years ago | |
---|---|
File size: 422 bytes |
Rev | Line | |
---|---|---|
[10838] | 1 | MODULE tiletype |
2 | ||
3 | IMPLICIT NONE | |
4 | ||
5 | TYPE tile_type | |
6 | ||
7 | !i-dimension | |
8 | INTEGER :: jsi, jei | |
9 | INTEGER :: jsim1 | |
10 | INTEGER :: jeip1, jei_1 | |
11 | ||
12 | !j-dimension | |
13 | INTEGER :: jsj, jej | |
14 | INTEGER :: jsjm1 | |
15 | INTEGER :: jejp1, jej_1 | |
16 | ||
17 | !k-dimension | |
18 | INTEGER :: jsk, jek | |
19 | INTEGER :: jsk_2 | |
20 | INTEGER :: jskm1 | |
21 | INTEGER :: jekp1 | |
22 | ||
23 | INTEGER :: jsih, jeih | |
24 | INTEGER :: jsjh, jejh | |
25 | INTEGER :: jskh, jekh | |
26 | ||
27 | END TYPE tile_type | |
28 | ||
29 | END MODULE tiletype |
Note: See TracBrowser
for help on using the repository browser.