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 #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