-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmpi_chan_serial.F90
143 lines (106 loc) · 4.1 KB
/
mpi_chan_serial.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
SUBROUTINE GHOST_CHAN_MPI
! This subroutine is part of the MPI package for the channel flow
! Diablo package.
RETURN
END
SUBROUTINE GHOST_GRID_MPI
! This subroutine is part of the MPI package for the channel flow
! Diablo package.
RETURN
END
!C----*|--.---------.---------.---------.---------.---------.---------.-|-------|
SUBROUTINE THOMAS_FORWARD_REAL_MPI(A,B,C,G,NY,NX)
!C----*|--.---------.---------.---------.---------.---------.---------.-|-------|
!C This subroutine performs the forward sweep of the Thomas algorithm
RETURN
END
!C----*|--.---------.---------.---------.---------.---------.---------.-|------
SUBROUTINE THOMAS_FORWARD_COMPLEX_MPI(A,B,C,G,NY,NX)
!C----*|--.---------.---------.---------.---------.---------.---------.-|-----|
!C This subroutine performs the forward sweep of the Thomas algorithm
RETURN
END
!C----*|--.---------.---------.---------.---------.---------.---------.-|------
SUBROUTINE THOMAS_BACKWARD_REAL_MPI(A,B,C,G,NY,NX)
!C----*|--.---------.---------.---------.---------.---------.---------.-|------
!C This subroutine performs the backward sweep of the Thomas algorithm
RETURN
END
!C----*|--.---------.---------.---------.---------.---------.---------.-|------
SUBROUTINE THOMAS_BACKWARD_COMPLEX_MPI(A,B,C,G,NY,NX)
!C----*|--.---------.---------.---------.---------.---------.---------.-|-----|
!C This subroutine performs the backward sweep of the Thomas algorithm
RETURN
END
!----*|--.---------.---------.---------.---------.---------.---------.-|------
SUBROUTINE INIT_MPI
!C----*|--.---------.---------.---------.---------.---------.---------.-|-----|
RETURN
END
!----*|--.---------.---------.---------.---------.---------.---------.-|------
SUBROUTINE INIT_CHAN_MPI
!C----*|--.---------.---------.---------.---------.---------.---------.-|-----|
!C Initialize any constants here
RETURN
END
SUBROUTINE APPLY_BC_TH_MPI(MATL,MATD,MATU,VEC,N)
! This subroutine applies the boundary conditions to the
! scalar fields prior to the implicit solve
RETURN
END
SUBROUTINE APPLY_BC_TH_MPI_C(MATL_C,MATD_C,MATU_C,VEC_C,N)
! This subroutine applies the boundary conditions to the
! scalar fields prior to the implicit solve
RETURN
END
SUBROUTINE APPLY_BC_U2_MPI(MATL,MATD,MATU,VEC)
! This subroutine applies the boundary conditions to the
RETURN
END
SUBROUTINE APPLY_BC_U2_MPI_C(MATL_C,MATD_C,MATU_C,VEC_C)
! This subroutine applies the boundary conditions to the
RETURN
END
SUBROUTINE APPLY_BC_U1_MPI(MATL,MATD,MATU,VEC)
! This subroutine applies the boundary conditions to the
! velocity field prior to the implicit solve
RETURN
END
SUBROUTINE APPLY_BC_U1_MPI_C(MATL_C,MATD_C,MATU_C,VEC_C)
! This subroutine applies the boundary conditions to the
RETURN
END
SUBROUTINE APPLY_BC_U3_MPI(MATL,MATD,MATU,VEC)
! This subroutine applies the boundary conditions to the
RETURN
END
SUBROUTINE APPLY_BC_U3_MPI_C(MATL_C,MATD_C,MATU_C,VEC_C)
! This subroutine applies the boundary conditions to the
RETURN
END
SUBROUTINE APPLY_BC_REM_DIV_MPI(MATL_C,MATD_C,MATU_C,VEC_C,K)
! This subroutine applies the boundary conditions for the Poisson Eq.
! Note, MATL, MATD, etc. are dimensioned in header
RETURN
END
SUBROUTINE APPLY_BC_POISSON_MPI(MATL_C,MATD_C,MATU_C,VEC_C,K)
! This subroutine applies the boundary conditions for the Poisson Eq.
! Note, MATL, MATD, etc. are dimensioned in header
RETURN
END
SUBROUTINE APPLY_BC_VEL_MPI
! This subroutine applies the boundary conditions for the Poisson Eq.
! Note, MATL, MATD, etc. are dimensioned in header
RETURN
END
SUBROUTINE APPLY_BC_ANWM_MPI
! This subroutine applies the boundary conditions for the Poisson Eq.
! Note, MATL, MATD, etc. are dimensioned in header
RETURN
END
SUBROUTINE APPLY_NUT_NWM_MPI_UPPER
RETURN
END
SUBROUTINE APPLY_NUT_NWM_MPI_LOWER
RETURN
END