Context Navigation

dimensions.f90 @ 156

Last change on this file since 156 was 151, checked in by ymipsl, 11 years ago

Implementation of mixte parallelism MPI/OpenMP into src directory

File size: 1.6 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
47	!$OMP MASTER
48	d=>domain(ind)
49
50	iim=d%iim
51	jjm=d%jjm
52	ii_begin=d%ii_begin
53	jj_begin=d%jj_begin
54	ii_end=d%ii_end
55	jj_end=d%jj_end
56	ii_nb=d%ii_nb
57	jj_nb=d%jj_nb
58
59	t_right=d%t_right
60	t_rup=d%t_rup
61	t_lup=d%t_lup
62	t_left=d%t_left
63	t_ldown=d%t_ldown
64	t_rdown=d%t_rdown
65
66	u_right=d%u_right
67	u_rup=d%u_rup
68	u_lup=d%u_lup
69	u_left=d%u_left
70	u_ldown=d%u_ldown
71	u_rdown=d%u_rdown
72
73	z_rup=d%z_rup
74	z_up=d%z_up
75	z_lup=d%z_lup
76	z_ldown=d%z_ldown
77	z_down=d%z_down
78	z_rdown=d%z_rdown
79
80	t_pos(:)=d%t_pos(:)
81	u_pos(:)=d%u_pos(:)
82	z_pos(:)=d%z_pos(:)
83
84	!$OMP END MASTER
85	!$OMP BARRIER
86	END SUBROUTINE swap_dimensions
87
88	END MODULE dimensions
89

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