ROMS
Loading...
Searching...
No Matches
set_bounds.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 =bounds(ng) % Istr (tile)
31 istrb =bounds(ng) % IstrB (tile)
32 istrm =bounds(ng) % IstrM (tile)
33 istrp =bounds(ng) % IstrP (tile)
34 istrr =bounds(ng) % IstrR (tile)
35 istrt =bounds(ng) % IstrT (tile)
36 istru =bounds(ng) % IstrU (tile)
37 iend =bounds(ng) % Iend (tile)
38 iendb =bounds(ng) % IendB (tile)
39 iendp =bounds(ng) % IendP (tile)
40 iendr =bounds(ng) % IendR (tile)
41 iendt =bounds(ng) % IendT (tile)
42
43 jstr =bounds(ng) % Jstr (tile)
44 jstrb =bounds(ng) % JstrB (tile)
45 jstrm =bounds(ng) % JstrM (tile)
46 jstrp =bounds(ng) % JstrP (tile)
47 jstrr =bounds(ng) % JstrR (tile)
48 jstrt =bounds(ng) % JstrT (tile)
49 jstrv =bounds(ng) % JstrV (tile)
50 jend =bounds(ng) % Jend (tile)
51 jendb =bounds(ng) % JendB (tile)
52 jendp =bounds(ng) % JendP (tile)
53 jendr =bounds(ng) % JendR (tile)
54 jendt =bounds(ng) % JendT (tile)
55!
56 istrm3 =bounds(ng) % Istrm3 (tile) ! Istr-3
57 istrm2 =bounds(ng) % Istrm2 (tile) ! Istr-2
58 istrm1 =bounds(ng) % Istrm1 (tile) ! Istr-1
59 istrum2=bounds(ng) % IstrUm2(tile) ! IstrU-2
60 istrum1=bounds(ng) % IstrUm1(tile) ! IstrU-1
61 iendp1 =bounds(ng) % Iendp1 (tile) ! Iend+1
62 iendp2 =bounds(ng) % Iendp2 (tile) ! Iend+2
63 iendp2i=bounds(ng) % Iendp2i(tile) ! Iend+2 interior
64 iendp3 =bounds(ng) % Iendp3 (tile) ! Iend+3
65
66 jstrm3 =bounds(ng) % Jstrm3 (tile) ! Jstr-3
67 jstrm2 =bounds(ng) % Jstrm2 (tile) ! Jstr-2
68 jstrm1 =bounds(ng) % Jstrm1 (tile) ! Jstr-1
69 jstrvm2=bounds(ng) % JstrVm2(tile) ! JstrV-2
70 jstrvm1=bounds(ng) % JstrVm1(tile) ! JstrV-1
71 jendp1 =bounds(ng) % Jendp1 (tile) ! Jend+1
72 jendp2 =bounds(ng) % Jendp2 (tile) ! Jend+2
73 jendp2i=bounds(ng) % Jendp2i(tile) ! Jend+2 interior
74 jendp3 =bounds(ng) % Jendp3 (tile) ! Jend+3