da_transpose.inc

1 subroutine da_transpose_z2x (xp)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
10 
11    if (trace_use) call da_trace_entry("da_transpose_z2x")
12 
13 #ifdef DM_PARALLEL
14    call wrf_dm_xpose_z2x(xp % domdesc, xp % comms, xp % xpose_id1)
15 #else
16    xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
17    xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
18 #endif
19 
20    if (trace_use) call da_trace_exit("da_transpose_z2x")
21 
22 end subroutine da_transpose_z2x
23 
24 subroutine da_transpose_x2y (xp)
25 
26    implicit none
27 
28    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
29 
30    if (trace_use) call da_trace_entry("da_transpose_x2y")
31 
32 #ifdef DM_PARALLEL
33    call wrf_dm_xpose_x2y(xp % domdesc, xp % comms, xp % xpose_id1)
34 #else
35    xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
36    xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
37 #endif
38 
39    if (trace_use) call da_trace_exit("da_transpose_x2y")
40 
41 end subroutine da_transpose_x2y
42 
43 subroutine da_transpose_x2y_v2(xp)
44 
45    implicit none
46 
47    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
48 
49    if (trace_use) call da_trace_entry("da_transpose_x2y_v2")
50 
51 #ifdef DM_PARALLEL
52    call wrf_dm_xpose_x2y(xp % domdesc, xp % comms, xp % xpose_id2)
53 #else
54    xp % v2y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
55    xp % v2x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
56 #endif
57 
58    if (trace_use) call da_trace_exit("da_transpose_x2y_v2")
59 
60 end subroutine da_transpose_x2y_v2
61 
62 subroutine da_transpose_y2z (xp)
63 
64    implicit none
65 
66    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
67 
68    if (trace_use) call da_trace_entry("da_transpose_y2z")
69 
70 #ifdef DM_PARALLEL
71    call wrf_dm_xpose_y2z (xp%domdesc, xp%comms, xp%xpose_id1)
72 #else
73    xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
74    xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
75 #endif
76 
77    if (trace_use) call da_trace_exit("da_transpose_y2z")
78 
79 end subroutine da_transpose_y2z
80 
81 subroutine da_transpose_z2y (xp)
82 
83    implicit none
84 
85    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
86 
87    if (trace_use) call da_trace_entry("da_transpose_z2y")
88 
89 
90 #ifdef DM_PARALLEL
91    call wrf_dm_xpose_z2y (xp%domdesc, xp%comms, xp%xpose_id1)
92 #else
93    xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
94    xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
95 #endif
96 
97    if (trace_use) call da_trace_exit("da_transpose_z2y")
98 
99 end subroutine da_transpose_z2y
100 
101 subroutine da_transpose_y2x (xp)
102 
103    implicit none
104 
105    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
106 
107    if (trace_use) call da_trace_entry("da_transpose_y2x")
108 
109 #ifdef DM_PARALLEL
110    call wrf_dm_xpose_y2x(xp % domdesc, xp % comms, xp % xpose_id1)
111 #else
112    xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
113    xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
114 #endif
115 
116    if (trace_use) call da_trace_exit("da_transpose_y2x")
117 
118 end subroutine da_transpose_y2x
119 
120 subroutine da_transpose_y2x_v2(xp)
121 
122    implicit none
123 
124    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
125 
126    if (trace_use) call da_trace_entry("da_transpose_y2x_v2")
127 
128 #ifdef DM_PARALLEL
129    call wrf_dm_xpose_y2x(xp % domdesc, xp % comms, xp % xpose_id2)
130 #else
131    xp % v2x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
132    xp % v2y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
133 #endif
134 
135    if (trace_use) call da_trace_exit("da_transpose_y2x_v2")
136 
137 end subroutine da_transpose_y2x_v2
138 
139 subroutine da_transpose_x2z (xp)
140 
141    implicit none
142 
143    type (xpose_type), intent(inout) :: xp      ! Dimensions and xpose buffers.
144 
145    if (trace_use) call da_trace_entry("da_transpose_x2z")
146 
147 #ifdef DM_PARALLEL
148    call wrf_dm_xpose_x2z(xp % domdesc , xp % comms, xp % xpose_id1)
149 #else
150    xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
151    xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
152 #endif
153 
154    if (trace_use) call da_trace_exit("da_transpose_x2z")
155 
156 end subroutine da_transpose_x2z
157 
158