da_transpose.inc
References to this file elsewhere.
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 #ifdef DM_PARALLEL
12 call wrf_dm_xpose_z2x(xp % domdesc, xp % comms, xp % xpose_id1)
13 #else
14 xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
15 xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
16 #endif
17
18 end subroutine da_transpose_z2x
19
20 subroutine da_transpose_x2y (xp)
21
22 implicit none
23
24 type (xpose_type), intent(inout) :: xp ! Dimensions and xpose buffers.
25
26 #ifdef DM_PARALLEL
27 call wrf_dm_xpose_x2y(xp % domdesc, xp % comms, xp % xpose_id1)
28 #else
29 xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
30 xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
31 #endif
32
33 end subroutine da_transpose_x2y
34
35 subroutine da_transpose_x2y_v2(xp)
36
37 implicit none
38
39 type (xpose_type), intent(inout) :: xp ! Dimensions and xpose buffers.
40
41 #ifdef DM_PARALLEL
42 call wrf_dm_xpose_x2y(xp % domdesc, xp % comms, xp % xpose_id2)
43 #else
44 xp % v2y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
45 xp % v2x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
46 #endif
47
48 end subroutine da_transpose_x2y_v2
49
50 subroutine da_transpose_y2z (xp)
51
52 implicit none
53
54 type (xpose_type), intent(inout) :: xp ! Dimensions and xpose buffers.
55
56 #ifdef DM_PARALLEL
57 call wrf_dm_xpose_y2z (xp%domdesc, xp%comms, xp%xpose_id1)
58 #else
59 xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
60 xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
61 #endif
62
63 end subroutine da_transpose_y2z
64
65 subroutine da_transpose_z2y (xp)
66
67 implicit none
68
69 type (xpose_type), intent(inout) :: xp ! Dimensions and xpose buffers.
70
71 #ifdef DM_PARALLEL
72 call wrf_dm_xpose_z2y (xp%domdesc, xp%comms, xp%xpose_id1)
73 #else
74 xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
75 xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
76 #endif
77
78 end subroutine da_transpose_z2y
79
80 subroutine da_transpose_y2x (xp)
81
82 implicit none
83
84 type (xpose_type), intent(inout) :: xp ! Dimensions and xpose buffers.
85
86 #ifdef DM_PARALLEL
87 call wrf_dm_xpose_y2x(xp % domdesc, xp % comms, xp % xpose_id1)
88 #else
89 xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
90 xp % v1y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
91 #endif
92
93 end subroutine da_transpose_y2x
94
95 subroutine da_transpose_y2x_v2(xp)
96
97 implicit none
98
99 type (xpose_type), intent(inout) :: xp ! Dimensions and xpose buffers.
100
101 #ifdef DM_PARALLEL
102 call wrf_dm_xpose_y2x(xp % domdesc, xp % comms, xp % xpose_id2)
103 #else
104 xp % v2x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
105 xp % v2y(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
106 #endif
107
108 end subroutine da_transpose_y2x_v2
109
110 subroutine da_transpose_x2z (xp)
111
112 implicit none
113
114 type (xpose_type), intent(inout) :: xp ! Dimensions and xpose buffers.
115
116 #ifdef DM_PARALLEL
117 call wrf_dm_xpose_x2z(xp % domdesc , xp % comms, xp % xpose_id1)
118 #else
119 xp % v1z(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde) = &
120 xp % v1x(xp%ids:xp%ide,xp%jds:xp%jde,xp%kds:xp%kde)
121 #endif
122
123 end subroutine da_transpose_x2z
124
125