The TELEMAC-MASCARET system
trunk
|
Data Types | |
type | cgns_info |
Functions/Subroutines | |
subroutine | open_mesh_cgns (FILE_NAME, FILE_ID, OPENMODE, IERR) |
subroutine | open_bnd_cgns (FILE_NAME, FILE_ID, OPENMODE, IERR) |
subroutine | close_bnd_cgns (FILE_ID, IERR) |
subroutine | close_mesh_cgns (FILE_ID, IERR) |
subroutine | get_mesh_title_cgns (FILE_ID, TITLE, IERR) |
subroutine | get_mesh_nelem_cgns (FILE_ID, TYP_ELT, NELEM, IERR) |
subroutine | get_mesh_npoin_per_element_cgns (FILE_ID, TYP_ELT, NDP, IERR) |
subroutine | get_mesh_connectivity_cgns (FILE_ID, TYP_ELT, IKLE, NELEM, NDP, IERR) |
subroutine | get_mesh_npoin_cgns (FILE_ID, TYP_ELT, NPOIN, IERR) |
subroutine | get_mesh_nplan_cgns (FILE_ID, NPLAN, IERR) |
subroutine | get_mesh_dimension_cgns (FILE_ID, NDIM, IERR) |
subroutine | get_mesh_coord_cgns (FILE_ID, JDIM, NPOIN, COORD, IERR) |
subroutine | get_mesh_l2g_numbering_cgns (FILE_ID, KNOLG, NPOIN, IERR) |
subroutine | get_mesh_nptir_cgns (FILE_ID, NPTIR, IERR) |
subroutine | get_bnd_ipobo_cgns (FILE_ID, TYPE_BND_ELEM, NPOIN, IPOBO, IERR) |
subroutine | get_bnd_numbering_cgns (FILE_ID, TYP_ELEM_BND, NPTFR, NBOR, IERR) |
subroutine | get_bnd_nelem_cgns (FILE_ID, TYPE_BND_ELEM, NELEM, IERR) |
subroutine | get_bnd_connectivity_cgns (FILE_ID, TYP_BND_ELT, NELEBD, NDP, IKLE, IERR) |
subroutine | get_bnd_value_cgns (FILE_ID, TYP_BND_ELEM, NPTFR, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, TRAC, LITBOR, TBOR, ATBOR, BTBOR, IERR) |
subroutine | get_bnd_npoin_cgns (FILE_ID, TYPE_BND_ELEM, NPTFR, IERR) |
subroutine | get_data_nvar_cgns (FILE_ID, NVAR, IERR) |
subroutine | get_data_var_list_cgns (FILE_ID, NVAR, VAR_LIST, UNIT_LIST, IERR) |
subroutine | get_data_ntimestep_cgns (FILE_ID, NTIMESTEP, IERR) |
subroutine | get_data_time_cgns (FILE_ID, RECORD, TIME, IERR) |
subroutine | get_data_value_cgns (FILE_ID, RECORD, VAR_NAME, RES_VALUE, N, IERR) |
subroutine | set_header_cgns (FILE_ID, TITLE, NVAR, VAR_NAME, IERR) |
subroutine | set_mesh_cgns (FILE_ID, MESH_DIM, TYPELT, NDP, NPTFR, NPTIR, NELEM, NPOIN, IKLE, IPOBO, KNOLG, X, Y, NPLAN, IERR, Z) |
subroutine | add_data_cgns (FILE_ID, VAR_NAME, TIME, RECORD, FIRST_VAR, VAR_VALUE, N, IERR) |
subroutine | set_bnd_cgns (FILE_ID, TYPE_BND_ELT, NELEBD, NDP, IKLE, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, LITBOR, TBOR, ATBOR, BTBOR, IERR) |
subroutine | varname2sids (VAR_NAME, SIDS_NAME) |
Variables | |
integer, parameter | var_size = 32 |
integer, parameter | title_size = 80 |
integer, dimension(max_file) | hash = 0 |
type(cgns_info), dimension(max_file) | cgns_obj_tab |
subroutine utils_cgns::add_data_cgns | ( | integer, intent(in) | FILE_ID, |
character(len=var_size), intent(in) | VAR_NAME, | ||
double precision, intent(in) | TIME, | ||
integer, intent(in) | RECORD, | ||
logical, intent(in) | FIRST_VAR, | ||
double precision, dimension(n), intent(in) | VAR_VALUE, | ||
integer, intent(in) | N, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | VAR_NAME | Name of the variable |
[in] | TIME | Time of the data |
[in] | RECORD | Time step of the data |
[in] | FIRST_VAR | True if it is the first variable of the dataset |
[in] | VAR_VALUE | The value for each point of the mesh |
[in] | N | Size of var_value |
[out] | IERR | 0 if no error during the execution |
[in] | n | FILE_ID File descriptor |
[in] | VAR_NAME | Name of the variable |
[in] | TIME | Time of the data |
[in] | RECORD | Time step of the data |
[in] | FIRST_VAR | True if it is the first variable of the dataset |
[in] | VAR_VALUE | The value for each point of the mesh |
[in] | N | Size of var_value |
[out] | IERR | 0 if no error during the execution |
Definition at line 2236 of file utils_cgns.F.
subroutine utils_cgns::close_bnd_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[out] | IERR | 0 if no error during the execution |
Definition at line 370 of file utils_cgns.F.
subroutine utils_cgns::close_mesh_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[out] | IERR | 0 if no error during the execution |
Definition at line 429 of file utils_cgns.F.
subroutine utils_cgns::get_bnd_connectivity_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYP_BND_ELT, | ||
integer, intent(in) | NELEBD, | ||
integer, intent(in) | NDP, | ||
integer, dimension(nelebd*ndp), intent(inout) | IKLE, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYP_BND_ELEM | Type of the boundary elements |
[in] | NELEBD | Number of boundary elements |
[in] | NDP | Number of points per element |
[in,out] | IKLE | The connectivity of the boundary elements |
[out] | IERR | 0 if no error during the execution |
Definition at line 1371 of file utils_cgns.F.
subroutine utils_cgns::get_bnd_ipobo_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYPE_BND_ELEM, | ||
integer, intent(in) | NPOIN, | ||
integer, dimension(npoin), intent(inout) | IPOBO, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYP_BND_ELEM | Type of the boundary element |
[in] | NPOIN | Total number of nodes |
[in,out] | IPOBO | An array containing 1 IF A POINT IS A BOUNDARY POINT 0 OTHERWISE |
[out] | IERR | 0 if no error during the execution |
Definition at line 1173 of file utils_cgns.F.
subroutine utils_cgns::get_bnd_nelem_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYPE_BND_ELEM, | ||
integer, intent(inout) | NELEM, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYPE_BND_ELEM | Type of the boundary elements |
[in,out] | NELEM | Number of boundary elements |
[out] | IERR | 0 if no error during the execution |
Definition at line 1315 of file utils_cgns.F.
subroutine utils_cgns::get_bnd_npoin_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYPE_BND_ELEM, | ||
integer, intent(inout) | NPTFR, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYPE_BND_ELEM | Type of the boundary elements |
[in,out] | NPTFR | Number of boundary points |
[out] | IERR | 0 if no error during the execution |
Definition at line 1570 of file utils_cgns.F.
subroutine utils_cgns::get_bnd_numbering_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYP_ELEM_BND, | ||
integer, intent(in) | NPTFR, | ||
integer, dimension(nptfr), intent(inout) | NBOR, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYP_BND_ELEM | Type of the boundary element |
[in] | NPTFR | Number of boundary points |
[in,out] | NBOR | An array containing the numbering in the mesh OF ALL BOUNDARY POINTS |
[out] | IERR | 0 if no error during the execution |
[in] | nptfr | FILE_ID File descriptor |
[in] | TYP_BND_ELEM | Type of the boundary element |
[in] | NPTFR | Number of boundary points |
[in,out] | NBOR | An array containing the numbering in the mesh OF ALL BOUNDARY POINTS |
[out] | IERR | 0 if no error during the execution |
[in] | typ_elem_bnd | FILE_ID File descriptor |
[in] | TYP_BND_ELEM | Type of the boundary element |
[in] | NPTFR | Number of boundary points |
[in,out] | NBOR | An array containing the numbering in the mesh OF ALL BOUNDARY POINTS |
[out] | IERR | 0 if no error during the execution |
Definition at line 1260 of file utils_cgns.F.
subroutine utils_cgns::get_bnd_value_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYP_BND_ELEM, | ||
integer, intent(in) | NPTFR, | ||
integer, dimension(nptfr), intent(inout) | LIHBOR, | ||
integer, dimension(nptfr), intent(inout) | LIUBOR, | ||
integer, dimension(nptfr), intent(inout) | LIVBOR, | ||
double precision, dimension(nptfr), intent(inout) | HBOR, | ||
double precision, dimension(*), intent(inout) | UBOR, | ||
double precision, dimension(*), intent(inout) | VBOR, | ||
double precision, dimension(nptfr), intent(inout) | CHBORD, | ||
logical, intent(in) | TRAC, | ||
integer, dimension(*), intent(inout) | LITBOR, | ||
double precision, dimension(nptfr), intent(inout) | TBOR, | ||
double precision, dimension(nptfr), intent(inout) | ATBOR, | ||
double precision, dimension(nptfr), intent(inout) | BTBOR, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | [out] IERR 0 if no error during the execution |
Definition at line 1458 of file utils_cgns.F.
subroutine utils_cgns::get_data_ntimestep_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(inout) | NTIMESTEP, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in,out] | NTIMESTEP | The number of time steps |
[out] | IERR | 0 if no error during the execution |
Definition at line 1744 of file utils_cgns.F.
subroutine utils_cgns::get_data_nvar_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(inout) | NVAR, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in,out] | NVAR | Number of variable |
[out] | IERR | 0 if no error during the execution |
Definition at line 1627 of file utils_cgns.F.
subroutine utils_cgns::get_data_time_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | RECORD, | ||
double precision, intent(inout) | TIME, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | RECORD | Number of the time step |
[in,out] | TIME | Time in second of the time step |
[out] | IERR | 0 if no error during the execution |
Definition at line 1792 of file utils_cgns.F.
subroutine utils_cgns::get_data_value_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | RECORD, | ||
character(len=16), intent(in) | VAR_NAME, | ||
double precision, dimension(n), intent(inout) | RES_VALUE, | ||
integer, intent(in) | N, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | RECORD | Time step to read in the file |
[in] | VAR_NAME | Variable for which we need the value |
[in,out] | RES_VALUE | Value for each point at time step record FOR THE VARIABLE VAR_NAME |
[in] | N | Size of res_value |
[out] | IERR | 0 if no error during the execution |
Definition at line 1861 of file utils_cgns.F.
subroutine utils_cgns::get_data_var_list_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | NVAR, | ||
character(len=16), dimension(nvar), intent(inout) | VAR_LIST, | ||
character(len=16), dimension(nvar), intent(inout) | UNIT_LIST, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in,out] | VARLIST | List of variable name |
[in,out] | UNTILIST | List of variable unit |
[out] | IERR | 0 if no error during the execution |
Definition at line 1675 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_connectivity_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYP_ELT, | ||
integer, dimension(nelem*ndp), intent(inout) | IKLE, | ||
integer, intent(in) | NELEM, | ||
integer, intent(in) | NDP, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYP_ELEM | Type of the element |
[in,out] | IKLE | The connectivity table |
[in] | NELEM | Number of elements |
[in] | NDP | Number of points per element |
[out] | IERR | 0 if no error during the execution |
Definition at line 740 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_coord_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | JDIM, | ||
integer, intent(in) | NPOIN, | ||
double precision, dimension(npoin), intent(inout) | COORD, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | JDIM | Dimension number |
[in] | NPOIN | Total number of nodes |
[in,out] | COORD | Local to global numbering array |
[out] | IERR | 0 if no error during the execution |
Definition at line 974 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_dimension_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(inout) | NDIM, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in,out] | NDIM | Number of dimension |
[out] | IERR | 0 if no error during the execution |
Definition at line 926 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_l2g_numbering_cgns | ( | integer, intent(in) | FILE_ID, |
integer, dimension(npoin), intent(inout) | KNOLG, | ||
integer, intent(in) | NPOIN, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FFORMAT Format of the file |
[in] | FILE_ID | File descriptor |
[in,out] | KNOLG | Local to global numbering array |
[in] | NPOIN | Number of nodes |
[out] | IERR | 0 if no error during the execution |
Definition at line 1045 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_nelem_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYP_ELT, | ||
integer, intent(inout) | NELEM, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYP_ELEM | Type of the element |
[in,out] | NELEM | The number of elements |
[out] | IERR | 0 if no error during the execution |
Definition at line 640 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_nplan_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(inout) | NPLAN, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in,out] | NPLAN | The number of layers |
[out] | IERR | 0 if no error during the execution |
Definition at line 878 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_npoin_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYP_ELT, | ||
integer, intent(inout) | NPOIN, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYP_ELEM | Type of the element |
[in,out] | NPOIN | The number of points |
[out] | IERR | 0 if no error during the execution |
Definition at line 828 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_npoin_per_element_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYP_ELT, | ||
integer, intent(inout) | NDP, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TYP_ELEM | Type of the element |
[in,out] | NDP | The number of point per element |
[out] | IERR | 0 if no error during the execution |
Definition at line 690 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_nptir_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(inout) | NPTIR, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in,out] | NPTIR | Number of interface point |
[out] | IERR | 0 if no error during the execution |
Definition at line 1122 of file utils_cgns.F.
subroutine utils_cgns::get_mesh_title_cgns | ( | integer, intent(in) | FILE_ID, |
character(len=title_size), intent(inout) | TITLE, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in,out] | TITLE | Title of the mesh file |
[out] | IERR | 0 if no error during the execution |
Definition at line 589 of file utils_cgns.F.
subroutine utils_cgns::open_bnd_cgns | ( | character(len=*), intent(in) | FILE_NAME, |
integer, intent(in) | FILE_ID, | ||
character(len=9), intent(in) | OPENMODE, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_name | FILE_NAME Name of the boundary file |
[in] | FILE_ID | File descriptor of the "mesh" file |
[in] | OPENMODE | One of the following value 'read','write','readwrite' |
[out] | IERR | 0 if no error during the execution |
Definition at line 273 of file utils_cgns.F.
subroutine utils_cgns::open_mesh_cgns | ( | character(len=*), intent(in) | FILE_NAME, |
integer, intent(out) | FILE_ID, | ||
character(len=9), intent(in) | OPENMODE, | ||
integer, intent(out) | IERR | ||
) |
[out] | file_id | [in] FILE_NAME Name of the file |
[in] | FILE_ID | File descriptor |
[in] | OPENMODE | One of the following value 'read','readwrite' |
[out] | IERR | 0 if no error during the execution |
Definition at line 67 of file utils_cgns.F.
subroutine utils_cgns::set_bnd_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | TYPE_BND_ELT, | ||
integer, intent(in) | NELEBD, | ||
integer, intent(in) | NDP, | ||
integer, dimension(nelebd*ndp), intent(in) | IKLE, | ||
integer, dimension(nelebd), intent(in) | LIHBOR, | ||
integer, dimension(nelebd), intent(in) | LIUBOR, | ||
integer, dimension(nelebd), intent(in) | LIVBOR, | ||
double precision, dimension(nelebd), intent(in) | HBOR, | ||
double precision, dimension(nelebd), intent(in) | UBOR, | ||
double precision, dimension(nelebd), intent(in) | VBOR, | ||
double precision, dimension(nelebd), intent(in) | CHBORD, | ||
integer, dimension(nelebd), intent(in) | LITBOR, | ||
double precision, dimension(nelebd), intent(in) | TBOR, | ||
double precision, dimension(nelebd), intent(in) | ATBOR, | ||
double precision, dimension(nelebd), intent(in) | BTBOR, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | [out] IERR 0 if no error during the execution |
Definition at line 2350 of file utils_cgns.F.
subroutine utils_cgns::set_header_cgns | ( | integer, intent(in) | FILE_ID, |
character(len=title_size), intent(in) | TITLE, | ||
integer, intent(in) | NVAR, | ||
character(len=var_size), dimension(nvar), intent(in) | VAR_NAME, | ||
integer, intent(out) | IERR | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | TITLE | Title of the mesh |
[in] | NVAR | Number of variables |
[in] | VAR_NAME | Name and units of the variables |
[out] | IERR | 0 if no error during the execution |
Definition at line 1936 of file utils_cgns.F.
subroutine utils_cgns::set_mesh_cgns | ( | integer, intent(in) | FILE_ID, |
integer, intent(in) | MESH_DIM, | ||
integer, intent(in) | TYPELT, | ||
integer, intent(in) | NDP, | ||
integer, intent(in) | NPTFR, | ||
integer, intent(in) | NPTIR, | ||
integer, intent(in) | NELEM, | ||
integer, intent(in) | NPOIN, | ||
integer, dimension(ndp*nelem), intent(in) | IKLE, | ||
integer, dimension(*), intent(in) | IPOBO, | ||
integer, dimension(*), intent(in) | KNOLG, | ||
double precision, dimension(npoin), intent(in) | X, | ||
double precision, dimension(npoin), intent(in) | Y, | ||
integer, intent(in) | NPLAN, | ||
integer, intent(out) | IERR, | ||
double precision, dimension(*), intent(in), optional | Z | ||
) |
[in] | file_id | FILE_ID File descriptor |
[in] | MESH_DIM | Dimension of the mesh |
[in] | TYPELM | Type of the mesh elements |
[in] | NDP | Number of points per element |
[in] | NPTFR | Number of boundary point |
[in] | NPTIR | Number of interface point |
[in] | NELEM | Number of element in the mesh |
[in] | NPOIN | Number of points in the mesh |
[in] | IKLE | Connectivity array for the main element |
[in] | IPOBO | Is a boundary point ? array |
[in] | KNOLG | Local to global numbering array |
[in] | X | X coordinates of the mesh points |
[in] | Y | Y coordinates of the mesh points |
[in] | NPLAN | Number of planes |
[out] | IERR | 0 if no error during the execution |
[in] | nplan | FILE_ID File descriptor |
[in] | MESH_DIM | Dimension of the mesh |
[in] | TYPELM | Type of the mesh elements |
[in] | NDP | Number of points per element |
[in] | NPTFR | Number of boundary point |
[in] | NPTIR | Number of interface point |
[in] | NELEM | Number of element in the mesh |
[in] | NPOIN | Number of points in the mesh |
[in] | IKLE | Connectivity array for the main element |
[in] | IPOBO | Is a boundary point ? array |
[in] | KNOLG | Local to global numbering array |
[in] | X | X coordinates of the mesh points |
[in] | Y | Y coordinates of the mesh points |
[in] | NPLAN | Number of planes |
[out] | IERR | 0 if no error during the execution |
Definition at line 2002 of file utils_cgns.F.
subroutine utils_cgns::varname2sids | ( | character(len=var_size), intent(in) | VAR_NAME, |
character(len=32), intent(out) | SIDS_NAME | ||
) |
[in] | var_name | VAR_NAME Variable name |
[out] | SIDS_NAME | Sids-standard name |
Definition at line 2439 of file utils_cgns.F.
type(cgns_info), dimension(max_file) utils_cgns::cgns_obj_tab |
Definition at line 55 of file utils_cgns.F.
integer, dimension(max_file) utils_cgns::hash = 0 |
Definition at line 54 of file utils_cgns.F.
integer, parameter utils_cgns::title_size = 80 |
Definition at line 28 of file utils_cgns.F.
integer, parameter utils_cgns::var_size = 32 |
Definition at line 27 of file utils_cgns.F.