3************************************************************************
4** copyright(c) 2002-2025 the roms group **
5** licensed under a mit/x style license **
6** see license_roms.md **
7************************************************************************
9** the lower and upper bounds are
allocated and assigned in
"inp_par.F"
10** by calling
"get_tile" which is located in the
"get_bounds.F" file.
21 integer :: Istr, IstrB, IstrP, IstrR, IstrT, IstrM, IstrU
22 integer :: Iend, IendB, IendP, IendR, IendT
23 integer :: Jstr, JstrB, JstrP, JstrR, JstrT, JstrM, JstrV
24 integer :: Jend, JendB, JendP, JendR, JendT
25 integer :: Istrm3, Istrm2, Istrm1, IstrUm2, IstrUm1
26 integer :: Iendp1, Iendp2, Iendp2i, Iendp3
27 integer :: Jstrm3, Jstrm2, Jstrm1, JstrVm2, JstrVm1
28 integer :: Jendp1, Jendp2, Jendp2i, Jendp3
30 istr =xtr_bounds(ng) % Istr (tile)
31 istrb =xtr_bounds(ng) % IstrB (tile)
32 istrm =xtr_bounds(ng) % IstrM (tile)
33 istrp =xtr_bounds(ng) % IstrP (tile)
34 istrr =xtr_bounds(ng) % IstrR (tile)
35 istrt =xtr_bounds(ng) % IstrT (tile)
36 istru =xtr_bounds(ng) % IstrU (tile)
37 iend =xtr_bounds(ng) % Iend (tile)
38 iendb =xtr_bounds(ng) % IendB (tile)
39 iendp =xtr_bounds(ng) % IendP (tile)
40 iendr =xtr_bounds(ng) % IendR (tile)
41 iendt =xtr_bounds(ng) % IendT (tile)
43 jstr =xtr_bounds(ng) % Jstr (tile)
44 jstrb =xtr_bounds(ng) % JstrB (tile)
45 jstrm =xtr_bounds(ng) % JstrM (tile)
46 jstrp =xtr_bounds(ng) % JstrP (tile)
47 jstrr =xtr_bounds(ng) % JstrR (tile)
48 jstrt =xtr_bounds(ng) % JstrT (tile)
49 jstrv =xtr_bounds(ng) % JstrV (tile)
50 jend =xtr_bounds(ng) % Jend (tile)
51 jendb =xtr_bounds(ng) % JendB (tile)
52 jendp =xtr_bounds(ng) % JendP (tile)
53 jendr =xtr_bounds(ng) % JendR (tile)
54 jendt =xtr_bounds(ng) % JendT (tile)
56 istrm3 =xtr_bounds(ng) % Istrm3 (tile)
57 istrm2 =xtr_bounds(ng) % Istrm2 (tile)
58 istrm1 =xtr_bounds(ng) % Istrm1 (tile)
59 istrum2=xtr_bounds(ng) % IstrUm2(tile)
60 istrum1=xtr_bounds(ng) % IstrUm1(tile)
61 iendp1 =xtr_bounds(ng) % Iendp1 (tile)
62 iendp2 =xtr_bounds(ng) % Iendp2 (tile)
63 iendp2i=xtr_bounds(ng) % Iendp2i(tile)
64 iendp3 =xtr_bounds(ng) % Iendp3 (tile)
66 jstrm3 =xtr_bounds(ng) % Jstrm3 (tile)
67 jstrm2 =xtr_bounds(ng) % Jstrm2 (tile)
68 jstrm1 =xtr_bounds(ng) % Jstrm1 (tile)
69 jstrvm2=xtr_bounds(ng) % JstrVm2(tile)
70 jstrvm1=xtr_bounds(ng) % JstrVm1(tile)
71 jendp1 =xtr_bounds(ng) % Jendp1 (tile)
72 jendp2 =xtr_bounds(ng) % Jendp2 (tile)
73 jendp2i=xtr_bounds(ng) % Jendp2i(tile)
74 jendp3 =xtr_bounds(ng) % Jendp3 (tile)