Arrays module (arrays.f90)

Module arrays

Description

Brief Description: This module defines arrays.

LICENSE:

Contributor(s): Merryn Tawhai, Alys Clark

Full Description:

This module defines arrays

Quick access

Types:

admittance_param, all_admit_param, capillary_bf_parameters, elasticity_param, elasticity_vessels, fluid_properties, four_parameter, gx_units, three_parameter, two_parameter

Variables:

arclength, data_field, data_group_names, data_weight, data_xyz, depvar_at_elem, depvar_at_node, elem_cnct, elem_cnct_2d, elem_direction, elem_field, elem_group_names, elem_lines_2d, elem_nodes, elem_nodes_2d, elem_ordrs, elem_symmetry, elem_units_below, elem_versn_2d, elems, elems_2d, elems_at_node, elems_at_node_2d, expansile, fix, gasex, gasex_field, line_versn_2d, lines_2d, lines_in_elem, maxgen, mesh_from_depvar, ndata_groups, nelem_groups, node_field, node_versn_2d, node_xyz, node_xyz_2d, nodes, nodes_2d, nodes_in_line, num_data, num_elems, num_elems_2d, num_groups, num_lines_2d, num_nodes, num_nodes_2d, num_triangles, num_units, num_vertices, prq_solution, rhs, scale_factors_2d, solver_solution, sparsecol, sparserow, sparseval, triangle, unit_before, unit_field, units, units_effective, update_resistance_entries, vertex_xyz

Routines:

set_node_field_value()

Needed modules

  • precision: Brief Description: Defines the precision of real parameters.

Types

  • type  arrays/capillary_bf_parameters
    Type fields:

    • % alpha_a [real,optional/default=2.33e-08_dp] :: m/Pa

    • % alpha_v [real,optional/default=2.33e-08_dp] :: m/Pa

    • % f_cap [real,optional/default=0.18000e01_dp]

    • % f_rec [real,optional/default=0.64630e00_dp]

    • % f_sheet [real,optional/default=0.10400e00_dp]

    • % h0 [real,optional/default=0.35000e-05_dp] :: m

    • % k_cap [real,optional/default=0.12000e02_dp]

    • % l_art_terminal [real,optional/default=0.13000e-03_dp] :: m

    • % l_c [real,optional/default=0.11880e-02_dp] :: m

    • % l_vein_terminal [real,optional/default=0.13000e-03_dp] :: m

    • % mu_c [real,optional/default=0.19200e-02_dp] :: Pa.s

    • % num_symm_gen [integer,optional/default=9] :: no units

    • % palv [real,optional/default=0.0_dp] :: Pa

    • % plb_c [real,optional/default=0.0_dp] :: Pa

    • % pub_a_v [real,optional/default=3138.24_dp] :: Pa

    • % pub_c [real,optional/default=3138.24_dp] :: Pa

    • % r_art_terminal [real,optional/default=0.10000e-04_dp] :: m

    • % r_vein_terminal [real,optional/default=9e-06] :: m

    • % sigma_cap [real,optional/default=0.43637e03_dp] :: Pa

    • % sigma_rec [real,optional/default=0.22300e04_dp]

    • % total_cap_area [real,optional/default=0.63000e02_dp] :: m

  • type  arrays/admittance_param
    Type fields:

    • % admittance_type [character(len=20)]

    • % bc_type [character(len=20)]

  • type  arrays/two_parameter
    Type fields:

    • % admit_p1 [real,optional/default=1.0_dp]

    • % admit_p2 [real,optional/default=1.0_dp]

  • type  arrays/three_parameter
    Type fields:

    • % admit_p3 [real,optional/default=1.0_dp]

  • type  arrays/four_parameter
    Type fields:

    • % admit_p4 [real,optional/default=1.0_dp]

  • type  arrays/all_admit_param
  • type  arrays/elasticity_vessels
    Type fields:

    • % vessel_type [character(len=20)]

  • type  arrays/elasticity_param
    Type fields:

    • % elasticity_parameters (3) [real,optional/default=0.0_dp]

  • type  arrays/fluid_properties
    Type fields:

    • % air_density [real,optional/default=1.146e-6_dp] :: g.mm^-3

    • % air_viscosity [real,optional/default=1.8e-5_dp] :: Pa.s

    • % blood_density [real,optional/default=0.10500e-02_dp] :: kg/cm3

    • % blood_viscosity [real,optional/default=0.33600e-02_dp] :: Pa.s

  • type  arrays/gx_units
    Type fields:

    • % c_cap_co2 (*) [real,allocatable]

    • % c_cap_o2 (*) [real,allocatable]

    • % conc_co2 (*) [real,allocatable]

    • % conc_o2 (*) [real,allocatable]

    • % p_alv_co2 (*) [real,allocatable]

    • % p_alv_o2 (*) [real,allocatable]

    • % p_cap_co2 (*) [real,allocatable]

    • % p_cap_o2 (*) [real,allocatable]

    • % ph_cap (*) [real,allocatable]

    • % qdot (*) [real,allocatable]

    • % s_area (*) [real,allocatable]

    • % sat_cap (*) [real,allocatable]

    • % t_in_transit (*) [real,allocatable]

    • % t_time (*) [real,allocatable]

    • % v_cap (*) [real,allocatable]

    • % vdot (*) [real,allocatable]

    • % volume (*) [real,allocatable]

Variables

  • arrays/arclength (*) [real,public/allocatable]
  • arrays/data_field (*,*) [real,public/allocatable]
  • arrays/data_group_names (20) [character(len=20),public]
  • arrays/data_weight (*,*) [real,public/allocatable]
  • arrays/data_xyz (*,*) [real,public/allocatable]
  • arrays/depvar_at_elem (*,*,*) [integer,public/allocatable]
  • arrays/depvar_at_node (*,*,*) [integer,public/allocatable]
  • arrays/dp [public]
  • arrays/elem_cnct (*,*,*) [integer,public/allocatable]

    NXI(-ni:ni,1,ne)

  • arrays/elem_cnct_2d (*,*,*) [integer,public/allocatable]
  • arrays/elem_direction (*,*) [real,public/allocatable]
  • arrays/elem_field (*,*) [real,public/allocatable]

    properties of elements

  • arrays/elem_group_names (20) [character(len=20),public]
  • arrays/elem_lines_2d (*,*) [integer,public/allocatable]
  • arrays/elem_nodes (*,*) [integer,public/allocatable]
  • arrays/elem_nodes_2d (*,*) [integer,public/allocatable]
  • arrays/elem_ordrs (*,*) [integer,public/allocatable]
  • arrays/elem_symmetry (*) [integer,public/allocatable]
  • arrays/elem_units_below (*) [integer,public/allocatable]
  • arrays/elem_versn_2d (*,*) [integer,public/allocatable]
  • arrays/elems (*) [integer,public/allocatable]

    allocated in define_1d_elements

  • arrays/elems_2d (*) [integer,public/allocatable]

    allocated in define_elem_geometry_2d

  • arrays/elems_at_node (*,*) [integer,public/allocatable]
  • arrays/elems_at_node_2d (*,*) [integer,public/allocatable]
  • arrays/expansile (*) [logical,public/allocatable]
  • arrays/fix (*) [logical,public/allocatable]
  • arrays/gasex [gx_units,public]
  • arrays/gasex_field (*,*) [real,public/allocatable]

    gasexchange specific fields

  • arrays/line_versn_2d (*,*,*) [integer,public/allocatable]
  • arrays/lines_2d (*) [integer,public/allocatable]
  • arrays/lines_in_elem (*,*) [integer,public/allocatable]
  • arrays/loose_tol [public]
  • arrays/maxgen [integer,public]
  • arrays/mesh_from_depvar (*,*,*) [integer,public/allocatable]
  • arrays/ndata_groups (20,2) [integer,public]
  • arrays/nelem_groups (*,*) [integer,public/allocatable]
  • arrays/node_field (*,*) [real,public/allocatable]
  • arrays/node_versn_2d (*) [integer,public/allocatable]

    allocated in define_node_geometry_2d

  • arrays/node_xyz (*,*) [real,public/allocatable]
  • arrays/node_xyz_2d (*,*,*,*) [real,public/allocatable]
  • arrays/nodes (*) [integer,public/allocatable]

    allocated in define_node_geometry

  • arrays/nodes_2d (*) [integer,public/allocatable]

    allocated in define_node_geometry_2d

  • arrays/nodes_in_line (*,*,*) [integer,public/allocatable]
  • arrays/num_data [integer,public]
  • arrays/num_elems [integer,public]
  • arrays/num_elems_2d [integer,public]
  • arrays/num_groups [integer,public]
  • arrays/num_lines_2d [integer,public]
  • arrays/num_nodes [integer,public]
  • arrays/num_nodes_2d [integer,public]
  • arrays/num_triangles [integer,public]
  • arrays/num_units [integer,public]
  • arrays/num_vertices [integer,public]
  • arrays/prq_solution (*,*) [real,public/allocatable]
  • arrays/rhs (*) [real,public/allocatable]
  • arrays/scale_factors_2d (*,*) [real,public/allocatable]
  • arrays/solver_solution (*) [real,public/allocatable]
  • arrays/sparsecol (*) [integer,public/allocatable]
  • arrays/sparserow (*) [integer,public/allocatable]
  • arrays/sparseval (*) [real,public/allocatable]
  • arrays/triangle (*,*) [integer,public/allocatable]
  • arrays/unit_before [real,private]
  • arrays/unit_field (*,*) [real,public/allocatable]

    properties of elastic units

  • arrays/units (*) [integer,public/allocatable]
  • arrays/units_effective (*) [integer,public/allocatable]
  • arrays/update_resistance_entries (*) [integer,public/allocatable]
  • arrays/vertex_xyz (*,*) [real,public/allocatable]
  • arrays/zero_tol [public]

Subroutines and functions

subroutine  arrays/set_node_field_value(row, col, value)
Parameters:

  • row [integer,in]

  • col [integer,in]

  • value [real,in]