ROMS
Loading...
Searching...
No Matches
set_bounds_xtr.h
Go to the documentation of this file.
1/*
2** git $id$
3************************************************************************
4** copyright(c) 2002-2025 the roms group **
5** licensed under a mit/x style license **
6** see license_roms.md **
7************************************************************************
8**
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.
11**
12*/
13
14!
15!-----------------------------------------------------------------------
16! Set lower and upper tile bounds and staggered variables bounds for
17! this horizontal domain partition. Notice that if tile=-1, it will
18! set the values for the global grid.
19!-----------------------------------------------------------------------
20!
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
29!
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)
42
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)
55!
56 istrm3 =xtr_bounds(ng) % Istrm3 (tile) ! Istr-3
57 istrm2 =xtr_bounds(ng) % Istrm2 (tile) ! Istr-2
58 istrm1 =xtr_bounds(ng) % Istrm1 (tile) ! Istr-1
59 istrum2=xtr_bounds(ng) % IstrUm2(tile) ! IstrU-2
60 istrum1=xtr_bounds(ng) % IstrUm1(tile) ! IstrU-1
61 iendp1 =xtr_bounds(ng) % Iendp1 (tile) ! Iend+1
62 iendp2 =xtr_bounds(ng) % Iendp2 (tile) ! Iend+2
63 iendp2i=xtr_bounds(ng) % Iendp2i(tile) ! Iend+2 interior
64 iendp3 =xtr_bounds(ng) % Iendp3 (tile) ! Iend+3
65
66 jstrm3 =xtr_bounds(ng) % Jstrm3 (tile) ! Jstr-3
67 jstrm2 =xtr_bounds(ng) % Jstrm2 (tile) ! Jstr-2
68 jstrm1 =xtr_bounds(ng) % Jstrm1 (tile) ! Jstr-1
69 jstrvm2=xtr_bounds(ng) % JstrVm2(tile) ! JstrV-2
70 jstrvm1=xtr_bounds(ng) % JstrVm1(tile) ! JstrV-1
71 jendp1 =xtr_bounds(ng) % Jendp1 (tile) ! Jend+1
72 jendp2 =xtr_bounds(ng) % Jendp2 (tile) ! Jend+2
73 jendp2i=xtr_bounds(ng) % Jendp2i(tile) ! Jend+2 interior
74 jendp3 =xtr_bounds(ng) % Jendp3 (tile) ! Jend+3