DCS
a Driven-Cavity Open source Simulator code
 All Classes Files Functions Variables Groups Pages
Lib_PDE.f90
Go to the documentation of this file.
1 
6 
12 
18 
24 
30 
36 
39 module lib_pde
40 !-----------------------------------------------------------------------------------------------------------------------------------
41 USE ir_precision ! Integers and reals precision definition.
42 !-----------------------------------------------------------------------------------------------------------------------------------
43 
44 !-----------------------------------------------------------------------------------------------------------------------------------
45 implicit none
46 private
47 public::
48 !-----------------------------------------------------------------------------------------------------------------------------------
49 
50 !-----------------------------------------------------------------------------------------------------------------------------------
57 !-----------------------------------------------------------------------------------------------------------------------------------
58 
59 !-----------------------------------------------------------------------------------------------------------------------------------
68 interface dudi_fv
69  module procedure dudi_fv_r8
70 endinterface
71 !-----------------------------------------------------------------------------------------------------------------------------------
72 contains
82  pure function dudi_fv_r8(u,nsi,v) result(fpd)
83  !-------------------------------------------------------------------------------------------------------------------------------
84  implicit none
85  real(R8P), intent(IN):: u(1:6)
86  real(R8P), intent(IN):: nsi(1:6)
87  real(R8P), intent(IN):: v
88  real(R8P):: fpd
89  !-------------------------------------------------------------------------------------------------------------------------------
90 
91  !-------------------------------------------------------------------------------------------------------------------------------
92  fpd = (u(2)*nsi(2) - u(1)*nsi(1) + u(4)*nsi(4) - u(3)*nsi(3) + u(6)*nsi(6) - u(5)*nsi(5))/v
93  return
94  !-------------------------------------------------------------------------------------------------------------------------------
95  endfunction dudi_fv_r8
97 endmodule lib_pde
lib_pde::dudi_fv::dudi_fv_r8
pure real(r8p) function dudi_fv_r8(u, nsi, v)
Function for computing first partial derivative by means of Finite Volumes approach (Green's theorem)...
Definition: Lib_PDE.f90:135
lib_pde::dudi_fv
Function for computing first partial derivative by means of Finite Volumes approach (Green's theorem)...
Definition: Lib_PDE.f90:121
lib_pde
This module contains Partial Differential Equations (PDE) solving procedures.
Definition: Lib_PDE.f90:92
ir_precision
Module IR_Precision makes available some portable kind-parameters and some useful procedures to deal ...
Definition: IR_Precision.f90:110