Neko
0.9.0
A portable framework for high-order spectral element flow simulations
stats_quant.f90
Go to the documentation of this file.
1
! Copyright (c) 2021-2023, 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
!
34
module
stats_quant
35
use
num_types
,
only
:
rp
36
implicit none
37
private
38
40
type
,
public
,
abstract
::
stats_quant_t
41
contains
42
procedure
(
stats_quant_update
), pass(this),
deferred
:: update
43
end type
stats_quant_t
44
46
abstract
interface
47
subroutine
stats_quant_update
(this, k)
48
import
::
stats_quant_t
49
import
rp
50
class
(
stats_quant_t
),
intent(inout)
:: this
51
real
(kind=
rp
),
intent(in)
:: k
52
end subroutine
stats_quant_update
53
end interface
54
55
end module
stats_quant
stats_quant::stats_quant_update
Abstract interface for updating/adding data to a quantitiy.
Definition:
stats_quant.f90:47
num_types
Definition:
num_types.f90:1
num_types::rp
integer, parameter, public rp
Global precision used in computations.
Definition:
num_types.f90:12
stats_quant
Defines a statistical quantity.
Definition:
stats_quant.f90:34
stats_quant::stats_quant_t
Abstract type defining a statistical quantity.
Definition:
stats_quant.f90:40
src
common
stats_quant.f90
Generated on Thu Nov 7 2024 10:53:27 for Neko by
1.9.1