The TELEMAC-MASCARET system  trunk
Functions/Subroutines | Variables
streamline.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine streamline::deorg_charac_type
 
subroutine, public streamline::dealloc_streamline
 
integer function streamline::get_max_basket_size ()
 
subroutine streamline::organise_chars (NPARAM, NOMB, NCHDIM, LAST_NCHDIM)
 
subroutine streamline::organise_chars_for_a (NPARAM, NOMB, NCHDIM, LAST_NCHDIM)
 
subroutine, public streamline::oil_organise_chars (NPARAM)
 
subroutine, public streamline::organise_algs (NPARAM, NOMB)
 
subroutine streamline::collect_char (MYPID, IOR, MYII, IFACE, KNE, IFR, ISP, NSP, XP, YP, ZP, FP, DX, DY, DZ, DF, IFAPAR, NCHDIM, NCHARA)
 
subroutine streamline::collect_alg (MYPID, NEPID, INE, KNE, ISP, NSP, IFR, XP, YP, ZP, FP, DX, DY, DZ, DF, NCHARA, NCHDIM)
 
subroutine streamline::re_initialise_chars (NSEND, NLOSTCHAR, NLOSTAGAIN, NARRV)
 
subroutine streamline::prep_initial_send (NSEND, NLOSTCHAR, NCHARA)
 
subroutine streamline::prep_initial_send_alg (NSEND, NLOSTCHAR, NCHARA)
 
subroutine streamline::oil_prep_initial_send (NSEND, NLOSTCHAR, NCHARA)
 
subroutine streamline::heap_found (NLOSTAGAIN, NARRV, NCHARA)
 
subroutine streamline::prep_lost_again (NSEND, NARRV)
 
subroutine streamline::prep_sendback (NCHARA)
 
subroutine streamline::glob_char_comm ()
 
subroutine streamline::glob_alg_comm ()
 
subroutine streamline::oil_glob_char_comm ()
 
subroutine streamline::interp_recvchar_41 (VAL, N, IKLE, ELT, ETA, FRE, SHP, SHZ, SHF, NELEM, NPOIN2, NPLAN, NRANGE, POST, NOMB, PERIO, YA4D)
 
subroutine streamline::interp_recvchar_11 (VAL, N, IKLE, ELT, SHP, NELEM, NPOIN, NRANGE, IELM, POST, NOMB)
 
subroutine streamline::introduce_recvchar (VAL, NOMB, NARRV, IELM, SHP, SHZ, SHF, ELT, ETA, FRE, POST, YA4D)
 
subroutine streamline::schar41 (U, V, W, DT, NRK, X, Y, ZSTAR, Z, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP, SHZ, ELT, ETA, NPLOT, NPOIN2, NELEM2, NELMAX2, NPLAN, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD, SIGMA)
 
subroutine streamline::schar41_sto (U, V, W, DT, NRK, X, Y, ZSTAR, Z, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP, SHZ, ELT, ETA, NPLOT, NPOIN2, NELEM2, NELMAX2, NPLAN, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD, SIGMA, VISCVI, STOCHA)
 
subroutine streamline::schar41_sigma (U, V, W, DT, NRK, X, Y, ZSTAR, Z, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP, SHZ, ELT, ETA, NPLOT, NPOIN2, NELEM2, NELMAX2, NPLAN, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD)
 
subroutine streamline::schar41_per (U, V, W, DT, NRK, X, Y, ZSTAR, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP, SHZ, ELT, ETA, NPLOT, NPOIN2, NELEM2, NELMAX2, NPLAN, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD)
 
subroutine streamline::schar41_per_4d (U, V, W, F, DT, NRK, X, Y, ZSTAR, FREQ, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, FPLOT, DX, DY, DZ, DF, SHP, SHZ, SHF, ELT, ETA, FRE, NPLOT, NPOIN2, NELEM2, NELMAX2, NPLAN, NF, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD)
 
subroutine streamline::schar11 (U, V, DT, NRK, X, Y, IKLE, IFABOR, XPLOT, YPLOT, DX, DY, SHP, ELT, NPLOT, NELEM, NELMAX, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD)
 
subroutine streamline::schar11_sto (U, V, DT, NRK, X, Y, IKLE, IFABOR, XPLOT, YPLOT, DX, DY, SHP, ELT, NPLOT, NPOIN, NELEM, NELMAX, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD, IELM, VISC, STOCHA)
 
subroutine streamline::schar12 (U, V, DT, NRK, X, Y, IKLE, IFABOR, XPLOT, YPLOT, DX, DY, SHP, ELT, NPLOT, NELEM, NELMAX, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD)
 
subroutine streamline::schar13 (U, V, DT, NRK, X, Y, IKLE, IFABOR, XPLOT, YPLOT, DX, DY, SHP, ELT, NPLOT, NELEM, NELMAX, SURDET, SENS, IFAPAR, NCHDIM, NCHARA, ADD)
 
subroutine, public streamline::scaract (U, UTILD, UCONV, VCONV, WCONV, FRCONV, X, Y, ZSTAR, FREQ, XCONV, YCONV, ZCONV, FCONV, DX, DY, DZ, DF, Z, SHP, SHZ, SHF, SURDET, DT, IKLE, IFABOR, ELT, ETA, FRE, ELTBUF, ISUB, IELM, IELMU, NELEM, NELMAX, NOMB, NPOIN2, NDP, NRK, NPLAN, NF, MESH, NPLOT, DIM1U, SENS, SHPBUF, SHZBUF, SHFBUF, FREBUF, SIZEBUF, APOST, APERIO, AYA4D, ASIGMA, ASTOCHA, AVISC, AALG)
 
subroutine, public streamline::bief_interp (U, UTILD, SHP, NDP, SHZ, ETA, SHF, FRE, ELT, NP, NPOIN2, NPLAN, IELM, IKLE, NELMAX, PERIO, YA4D)
 
subroutine, public streamline::post_interp (U, UTILD, SHP, SHZ, SHF, IKLE, NELMAX, NOMB, NPOIN2, ELT, ETA, FRE, ISUB, NDP, NPLAN, IELM, NPLOT, DIM1U, WSHP, WSHZ, WSHF, WELT, WETA, WFRE, SIZEBUF, PERIO, YA4D)
 
subroutine, public streamline::send_particles (X, Y, Z, SHP, SHZ, ELT, ETA, ISUB, TAG, CLS, NDP, NPLOT, NPLOT_MAX, MESH, NPLAN, DX, DY, DZ)
 
subroutine, public streamline::add_particle (X, Y, Z, TAG, CLS, NFLOT, NFLOT_MAX, XFLOT, YFLOT, ZFLOT, TAGFLO, CLSFLO, SHPFLO, SHZFLO, ELTFLO, ETAFLO, MESH, NPLAN, SHP1, SHP2, SHP3, SHZ, ELT, ETA)
 
subroutine, public streamline::del_particle (TAG, NFLOT, NFLOT_MAX, XFLOT, YFLOT, ZFLOT, TAGFLO, CLSFLO, SHPFLO, SHZFLO, ELTFLO, ETAFLO, IELM, DX, DY, DZ, ISUB, TEFF, DISLODGE)
 
subroutine, public streamline::send_info_alg (ISUB, TAG, CLS, TEFF, DISLODGE, FLAG, NPLOT, NPLOT_MAX, U_X_AV, U_Y_AV, U_Z_AV, K_AV, EPS_AV, H_FLU, U_X, U_Y, U_Z, V_X, V_Y, V_Z, NWIN, NDIR, PSI)
 
subroutine, public streamline::del_info_alg (TAG, NFLOT, NFLOT_MAX, IELM, TAGFLO, CLSFLO, FLAGFLO, V_X, V_Y, V_Z, U_X, U_Y, U_Z, U_X_AV, U_Y_AV, U_Z_AV, K_AV, EPS_AV, H_FLU, NWIN, NDIR, PSI)
 
subroutine, public streamline::oil_send_particles (X, Y, Z, SHP, SHZ, ELT, ETA, ISUB, TAG, CLS, NDP, NPLOT, NPLOT_MAX, MESH, NPLAN, PARTICULES)
 
subroutine, public streamline::oil_send_info (ELT, ETA, ISUB, TAG, CLS, NPLOT, NPLOT_MAX, PARTICULES, NB_COMPO, NB_HAP)
 
subroutine, public streamline::oil_del_particle (TAG, NFLOT, NFLOT_MAX, IELM, ISUB, PARTICULES, NB_COMPO, NB_HAP)
 

Variables

integer, parameter streamline::max_basket_size =10
 
integer streamline::last_nomb
 
integer streamline::last_nplot
 
integer streamline::characteristic
 
type(charac_type), dimension(:), allocatable streamline::heapchar
 
type(charac_type), dimension(:), allocatable streamline::sendchar
 
type(charac_type), dimension(:), allocatable streamline::recvchar
 
integer, dimension(:), allocatable streamline::sendcounts
 
integer, dimension(:), allocatable streamline::sdispls
 
integer, dimension(:), allocatable streamline::recvcounts
 
integer, dimension(:), allocatable streamline::rdispls
 
integer, dimension(:), allocatable streamline::heapcounts
 
integer streamline::nchdim
 
integer, dimension(:), allocatable streamline::icha
 
integer streamline::alg_char
 
type(alg_type), dimension(:), allocatable streamline::heapalg
 
type(alg_type), dimension(:), allocatable streamline::sendalg
 
type(alg_type), dimension(:), allocatable streamline::recvalg
 
integer streamline::oil_charac
 
type(oil_type), dimension(:), allocatable streamline::heapoil
 
type(oil_type), dimension(:), allocatable streamline::sendoil
 
type(oil_type), dimension(:), allocatable streamline::recvoil
 
logical streamline::trace =.FALSE.
 
integer streamline::i
 
integer, parameter streamline::nplanmax =200
 
integer, dimension(nplanmax) streamline::eta1 = (/ (I+1, I = 1, NPLANMAX) /)
 
logical streamline::init =.TRUE.