Neko 1.99.1
A portable framework for high-order spectral element flow simulations
Loading...
Searching...
No Matches
rhs_maker_fctry.f90
Go to the documentation of this file.
1! Copyright (c) 2022-2024, The Neko Authors
2! All rights reserved.
3!
4! Redistribution and use in source and binary forms, with or without
5! modification, are permitted provided that the following conditions
6! are met:
7!
8! * Redistributions of source code must retain the above copyright
9! notice, this list of conditions and the following disclaimer.
10!
11! * Redistributions in binary form must reproduce the above
12! copyright notice, this list of conditions and the following
13! disclaimer in the documentation and/or other materials provided
14! with the distribution.
15!
16! * Neither the name of the authors nor the names of its
17! contributors may be used to endorse or promote products derived
18! from this software without specific prior written permission.
19!
20! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
23! FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
24! COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
25! INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
26! BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
27! LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
28! CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29! LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
30! ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
31! POSSIBILITY OF SUCH DAMAGE.
32!
34submodule(rhs_maker) rhs_maker_fctry
43
44contains
45
50 module subroutine rhs_maker_sumab_fctry(object)
51 class(rhs_maker_sumab_t), allocatable, intent(inout) :: object
52
53 if (allocated(object)) then
54 deallocate(object)
55 end if
56
57 if (neko_bcknd_sx .eq. 1) then
58 allocate(rhs_maker_sumab_sx_t::object)
59 else if (neko_bcknd_device .eq. 1) then
60 allocate(rhs_maker_sumab_device_t::object)
61 else
62 allocate(rhs_maker_sumab_cpu_t::object)
63 end if
64
65 end subroutine rhs_maker_sumab_fctry
66
70 module subroutine rhs_maker_ext_fctry(object)
71 class(rhs_maker_ext_t), allocatable, intent(inout) :: object
72
73 if (allocated(object)) then
74 deallocate(object)
75 end if
76
77 if (neko_bcknd_sx .eq. 1) then
78 allocate(rhs_maker_ext_sx_t::object)
79 else if (neko_bcknd_device .eq. 1) then
80 allocate(rhs_maker_ext_device_t::object)
81 else
82 allocate(rhs_maker_ext_cpu_t::object)
83 end if
84
85 end subroutine rhs_maker_ext_fctry
86
90 module subroutine rhs_maker_bdf_fctry(object)
91 class(rhs_maker_bdf_t), allocatable, intent(inout) :: object
92
93 if (allocated(object)) then
94 deallocate(object)
95 end if
96
97 if (neko_bcknd_sx .eq. 1) then
98 allocate(rhs_maker_bdf_sx_t::object)
99 else if (neko_bcknd_device .eq. 1) then
100 allocate(rhs_maker_bdf_device_t::object)
101 else
102 allocate(rhs_maker_bdf_cpu_t::object)
103 end if
104
105 end subroutine rhs_maker_bdf_fctry
106
110 module subroutine rhs_maker_oifs_fctry(object)
111 class(rhs_maker_oifs_t), allocatable, intent(inout) :: object
112
113 if (allocated(object)) then
114 deallocate(object)
115 end if
116
117 if (neko_bcknd_sx .eq. 1) then
118 allocate(rhs_maker_oifs_sx_t::object)
119 else if (neko_bcknd_device .eq. 1) then
120 allocate(rhs_maker_oifs_device_t::object)
121 else
122 allocate(rhs_maker_oifs_cpu_t::object)
123 end if
124
125 end subroutine rhs_maker_oifs_fctry
126
127end submodule rhs_maker_fctry
Build configurations.
integer, parameter neko_bcknd_sx
integer, parameter neko_bcknd_device
Routines to generate the right-hand sides for the convection-diffusion equation. Employs the EXT/BDF ...
Definition rhs_maker.f90:38