source:
NEMO/branches/UKMO/BPC_miniapp/OpenACC_managed/tiletype.F90
@
13167
Last change on this file since 13167 was 10838, checked in by wayne_gaudin, 5 years ago | |
---|---|
File size: 422 bytes |
Line | |
---|---|
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.