FE_FILM Derived Type

  1. mod_film.f90
  2. film
  3. FE_FILM

type, public :: FE_FILM

FE_FILM stores the whole stuff related to a film: the nodal variables, the mesh, etc.


Inherits

type~~fe_film~~InheritsGraph type~fe_film FE_FILM NUM_PAR NUM_PAR type~fe_film->NUM_PAR num_p type~prc_tab PRC_TAB type~fe_film->type~prc_tab prc FE_MESH FE_MESH type~fe_film->FE_MESH m DATA_FILM DATA_FILM type~fe_film->DATA_FILM data_f

Contents

Variables

Type-Bound Procedures

fx fy fz

Source Code

FE_FILM

Components

TypeVisibility AttributesNameInitial
integer(kind=I4), public :: n_vn

number of nodal variables
integer(kind=I4), public :: n_vc

number of variables on cells
type(FE_MESH), public :: m

mesh of the film
type(DATA_FILM), public :: data_f

data of the problem
type(PRC_TAB), public :: prc

precomputation
type(NUM_PAR), public :: num_p

numerical param for iterative solution
real(kind=R8), public, dimension(:,:), allocatable:: vn

nodal variables table
real(kind=R8), public, dimension(:,:), allocatable:: vc

cell variables table
integer(kind=I4), public, dimension(:,:), allocatable:: bc

boundary nodes code
character(len=20), public, dimension(:), allocatable:: vn_name

nodal variable names
character(len=20), public, dimension(:), allocatable:: vc_name

cell variable names

Type-Bound Procedures

procedure, public :: fx

force computation along

  • private function fx(fe_f)

    Read more…

    Arguments

    Type IntentOptional AttributesName
    class(FE_FILM), intent(inout) :: fe_f

    FE film

    Return Value real(kind=R8)

procedure, public :: fy

force computation along

  • private function fy(fe_f)

    Read more…

    Arguments

    Type IntentOptional AttributesName
    class(FE_FILM), intent(inout) :: fe_f

    FE film

    Return Value real(kind=R8)

procedure, public :: fz

force computation along

  • private function fz(fe_f)

    Read more…

    Arguments

    Type IntentOptional AttributesName
    class(FE_FILM), intent(inout) :: fe_f

    fluid type

    Return Value real(kind=R8)

Source Code

type FE_FILM
!! <span style="color:green">
!!   *FE_FILM* stores the whole stuff related to a film: the nodal variables, the mesh, etc.
!! </span>
   integer(kind=I4)  :: n_vn          !! *number of nodal variables*
   integer(kind=I4)  :: n_vc          !! *number of variables on cells*
   type(FE_MESH)     :: m             !! *mesh of the film*
   type(DATA_FILM)   :: data_f        !! *data of the problem*
   type(PRC_TAB)     :: prc           !! *precomputation*
   type(NUM_PAR)     :: num_p         !! *numerical param for iterative solution*

   real(kind=R8),     dimension(:,:), allocatable :: vn      !! *nodal variables table*
   real(kind=R8),     dimension(:,:), allocatable :: vc      !! *cell variables table*
   integer(kind=I4),  dimension(:,:), allocatable :: bc      !! *boundary nodes code*
   character(len=20), dimension(:),   allocatable :: vn_name !! *nodal variable names*
   character(len=20), dimension(:),   allocatable :: vc_name !! *cell variable names*
   contains
      procedure :: fx                                        !! *force computation along* \(x\)
      procedure :: fy                                        !! *force computation along* \(y\)
      procedure :: fz                                        !! *force computation along* \(z\)
endtype FE_FILM