Context Navigation

dimensions.f90 @ 78

Last change on this file since 78 was 12, checked in by ymipsl, 12 years ago

dynamico tree creation

File size: 1.5 KB

Line
1	MODULE dimensions
2
3	INTEGER :: iim
4	INTEGER :: jjm
5	INTEGER :: ii_begin
6	INTEGER :: jj_begin
7	INTEGER :: ii_end
8	INTEGER :: jj_end
9	INTEGER :: ii_nb
10	INTEGER :: jj_nb
11
12	INTEGER :: t_right
13	INTEGER :: t_rup
14	INTEGER :: t_lup
15	INTEGER :: t_left
16	INTEGER :: t_ldown
17	INTEGER :: t_rdown
18
19	INTEGER :: u_right
20	INTEGER :: u_rup
21	INTEGER :: u_lup
22	INTEGER :: u_left
23	INTEGER :: u_ldown
24	INTEGER :: u_rdown
25
26	INTEGER :: z_rup
27	INTEGER :: z_up
28	INTEGER :: z_lup
29	INTEGER :: z_ldown
30	INTEGER :: z_down
31	INTEGER :: z_rdown
32
33	INTEGER :: t_pos(6)
34	INTEGER :: u_pos(6)
35	INTEGER :: z_pos(6)
36
37	CONTAINS
38
39	SUBROUTINE swap_dimensions(ind)
40	USE domain_mod
41	IMPLICIT NONE
42	INTEGER,INTENT(IN) :: ind
43
44	TYPE(t_domain),POINTER :: d
45
46	d=>domain(ind)
47
48	iim=d%iim
49	jjm=d%jjm
50	ii_begin=d%ii_begin
51	jj_begin=d%jj_begin
52	ii_end=d%ii_end
53	jj_end=d%jj_end
54	ii_nb=d%ii_nb
55	jj_nb=d%jj_nb
56
57	t_right=d%t_right
58	t_rup=d%t_rup
59	t_lup=d%t_lup
60	t_left=d%t_left
61	t_ldown=d%t_ldown
62	t_rdown=d%t_rdown
63
64	u_right=d%u_right
65	u_rup=d%u_rup
66	u_lup=d%u_lup
67	u_left=d%u_left
68	u_ldown=d%u_ldown
69	u_rdown=d%u_rdown
70
71	z_rup=d%z_rup
72	z_up=d%z_up
73	z_lup=d%z_lup
74	z_ldown=d%z_ldown
75	z_down=d%z_down
76	z_rdown=d%z_rdown
77
78	t_pos(:)=d%t_pos(:)
79	u_pos(:)=d%u_pos(:)
80	z_pos(:)=d%z_pos(:)
81
82	END SUBROUTINE swap_dimensions
83
84	END MODULE dimensions
85

Note: See TracBrowser for help on using the repository browser.