telemac2d.f File Reference

Go to the source code of this file.

Functions/Subroutines


Function Documentation

subroutine TELEMAC2D (  ) 

Module: telemac2d briefs 752.


ALGAE_TRANSP, BIEF, DECLARATIONS_TELEMAC, DECLARATIONS_TELEMAC2D, FRICTION_DEF, GRACESTOP, INTERFACE_SISYPHE, INTERFACE_TELEMAC2D, INTERFACE_TOMAWAC, M_COUPLING_ESTEL3D, OILSPILL

Variable(s)


Argument(s) ATDEP, CODE, DOPRINT, DTDEP, NEWTIME, NITER, PASS
Use(s) BIEF_DEF :
NCSIZE, NPTIR
DECLARATIONS_TELEMAC2D :
A23, A32, ADJDIR, ADJO, AGGLOC, AGGLOT, AGGLOU, AGGLOW, AK, AKN, AKTILD, ALGAE, ALGTYP, ALPHA1, ALPHA2, ALPHA3, ALTBUS, ALTSIP, AM1, AM2, AM3, ANGBUS, ANGSIP, AT, ATBOR, ATMOS, AUBOR, BANDEC, BILMAS, BM1, BM1S, BM2, BM2S, BORNES, BOUNDARY_COLOUR, BRECHE, BTBOR, CEBUS, CESIP, CF, CFBOR, CFLWTD, CHBORD, CHESTR, CLH, CLPBUS, CLU, CLV, CM1, CM2, COMFLU, CONV, CONVV, CORCON, CORIOL, COUROU, CRIPER, CSBUS, CSSIP, CTRLSC, CUMFLO, CV1, CV1S, CV2, CV3, DALGAE, DBUS, DEBLAG, DEBLIQ, DEBSOL, DEBU, DEBUG, DELSIP, DH, DHN, DIFF_DEL, DIFNU, DIFT, DIFVIT, DIRBOR, DIRFLU, DIRMOY, DM1, DSCE, DSCE2, DSIP, DSZ, DT, DTVARI, DU, DUREE, DV, EALGAE, EBOR, ELDER, ELTFLO, ELTLAG, ENTBUS, ENTET, ENTSIP, EP, EPN, EPTILD, EQUA, ESTIME, F, FAIR, FCOR, FFON, FINLAG, FINLIQ, FINSOL, FLBOR, FLBORTRA, FLODEL, FLOPRD, FLUHBOR, FLUHBTEMP, FLULIM, FLUXT, FLUXTEMP, FLUX_BOUNDARIES, FLUX_OLD, FN, FNCAR, FNCAR2, FRICTB, FRTYPE, FTILD, FTILD2, FU, FUAIR, FV, FVAIR, FXWAVE, FYWAVE, GAMMA, GRAV, H, H0, HAUBUS, HAULIN, HBOR, HC, HCSTOK, HD, HFROT, HIT1, HM0, HMIN, HN, HPROP, HSTOK, HT, HTILD, HWIND, ICONVF, ICONVFT, IELM1, IELME, IELMH, IELMK, IELMT, IELMU, IFAMAS, IKLE, INFOGR, IORDRH, IORDRU, ISCE, IT1, IT2, IT3, IT4, ITURB, I_ORIG, J_ORIG, KBOR, KFROT, LAMBD0, LBUS, LEOPRD, LIHBOR, LIMKEP, LIMPRO, LIMTRA, LINDNER, LISPRD, LISRUG, LISTIN, LIST_PTS, LITBOR, LIUBOR, LIVBOR, LOGFR, LRGBUS, LSIP, LT, LVMAC, MARDAT, MAREE, MARTIM, MASK, MASKEL, MASKPT, MASKTR, MAT, MATADJ, MAXADV, MAXFRO, MAXSCE, MAXTRA, MAXVAR, MBOR, MESH, MSK, MSKSEC, MSKUSE, MXPTVS, NAMETRAC, NBUSE, NCOTE, NCP, NDEBIT, NDEF, NDGA1, NDGB1, NEISEG, NELEM, NELMAX, NFLOT, NFLOT_MAX, NFRLIQ, NFRSOL, NGAUSS, NIT, NITERA, NKFROT, NLAG, NORD, NPOIN, NPSING, NPTFR, NPTH, NPTS, NREJET, NREJEU, NREJTR, NSIPH, NSOUSI, NTRAC, NTRACE, NUMLIQ, NVARCL, NVARRES, NVITES, NWEIRS, NZONE, NZONES, OPDTRA, OPDVIT, OPTADV_KE, OPTADV_TR, OPTADV_VI, OPTASS, OPTBAN, OPTCOST, OPTSOU, OPTSUP, OPTVF, OPT_HNEG, ORBVEL, OUTINI, PATMOS, PERCOU, PERCOU_WAC, PHI0, PHIDIG, PLUIE, PP, PRECCU, PRIVE, PRODUC, PROLIN, PROPA, PROPNU, PROVEL, PTINIG, PTINIL, PTS_CURVES, QQ, QU, QV, RAIN, RAIN_MMPD, RALGAE, RAZTIM, RHS, RO, ROEAU, ROVAR, RR, S, SALI_DEL, SB, SECCURRENTS, SECSIP, SEC_R, SEC_TAU, SETSTR, SHPFLO, SHPLAG, SLVEP, SLVK, SLVPRO, SLVTRA, SMH, SMTR, SOLSYS, SORBUS, SORIMP, SORIMPA, SORLEO, SORLEOA, SORSIP, SP, SPHERI, SPILL_MODEL, START_RECORD, STA_DIS_CURVES, STOCHA, STOPER, T, T1, T10, T11, T12, T13, T14, T15, T17, T18, T19, T2, T20, T21, T22, T2DBI1, T2DDL1, T2DDL2, T2DDL3, T2DDL4, T2DDL5, T2DDL6, T2DDL7, T2DDL8, T2DDL9, T2DFO1, T2DL10, T2DL11, T2DMAB, T2DRBI, T2D_FILES, T3, T4, T5, T6, T7, T8, T9, TAGFLO, TAM1, TAM2, TAM3, TB, TBM1, TBM2, TBOR, TBUS, TCM1, TCM2, TE1, TE2, TE3, TE4, TE5, TEMP_DEL, TETAC, TETAD, TETAT, TETAU, TETAZCOMP, TEXP, TEXREF, TEXRES, TEXTPR, THOMFR, TIMP, TITCAS, TM1, TN, TPR5, TRAC0, TRAIN, TSCE2, TSCEXP, TSIP, TTILD, TWEIRA, TWEIRB, TYPSEUIL, U, UBOR, UBUS, UCONV, UD, UDEL, UETUTA, UIT1, UN, UNK, UNKADJ, UNSV2D, USIP, UTILD, UU, V, V2DPAR, VALID, VARCL, VARCLA, VARSOR, VARSORA, VBOR, VBUS, VCONV, VD, VDEL, VELO_DEL, VENT, VERLIM, VERTIC, VISC, VISCT, VISC_S, VIT1, VN, VOLU2D, VSIP, VTILD, VV, W, W1, WAQPRD, WATQUA, WINDX, WINDY, XFLOT, XLAG, XSCE, YFLOT, YLAG, YSCE, ZCONV, ZDIG, ZF, ZFE, ZFLATS, ZONE
DECLARATIONS_TELEMAC :
COUPLING, KADH, KDDL, KDIR, KENT, KENTU, KINC, KLOG, KNEU, KSORT
GRACESTOP :
BREAKER, SIGUSR1
OILSPILL :
DP, HH, TEXTE
ALGAE_TRANSP :
EPS_AV, EPS_AV_0, K_AV, K_AV_0, U_X, U_X_0, U_X_AV, U_X_AV_0, U_Y, U_Y_0, U_Y_AV, U_Y_AV_0, U_Z, U_Z_0, U_Z_AV, U_Z_AV_0, V_X, V_X_0, V_Y, V_Y_0, V_Z, V_Z_0
Common(s) INFO : LNG, LU
Internal(s) AKEP, ALIRE, ARRET1, ARRET2, ARRET3, AT0, C, C1, C2, CFLMAX, CHARR, CHARR_TEL, CMU, CODE1, CONSTFLOW_SIS, CORBOT, DISCLIN, DTCAS, DTN, DTT, EMAX, EMIN, ESTAR, FLUENT, FLUENTN, FLUSOR, FLUSORTN, FLUTENT, FLUTSOR, HIST, I, IBID, IELM, IELMX, IMAX, INFOGS, INFOGT, IOPTAN, ISIS_CFD, ISOUSI, ITRAC, KARMAN, KFROT_TP, KMAX, KMIN, LEOPRD_CHARR, LTT, MASSES, MASSOU, MASS_RAIN, MASTEN, MASTOU, MASTR0, MASTR2, MASTRAIN, NPTFR2, NSIS_CFD, RELAX, RELAXB, RELAXS, SCHMIT, SIGMAE, SIGMAK, SISYPHE_CFD, STOP2, SUSP, SUSP1, TETAHC, TMAX, TROUVE, USIS, VSIS, YAFLODEL, YAFLULIM, YASMH, YASMI
Alias(es) EX_TELEMAC2D, USIS, VSIS

Call(s)


Known(s) AKEPIN(), ALLOC_ALGAE(), ASSIGNSTR(), BIEF_DESIMP(), BIEF_SUITE(), BIEF_VALIDA(), BILAN(), BILANT(), BILANT1(), BORD(), BREACH(), BUSE(), CALCUL_Q_WEIR(), CFLPSI(), CHARAC(), CHGDIS(), CHPCON(), CLIP(), CLSING(), CLTRAC(), COMPLIM(), CONDIN(), CONDIN_ADJ(), CONFIG_CODE(), CORFON(), CORNOR(), CORRECTION_DEPTH_2D(), CORSTR(), CORVIS(), COSAKE(), CPSTVC(), CREATE_DATASET(), CVDFTR(), DEBSCE(), DEF_ZONES(), DEPTH_FILL(), DERIVE(), DERLAG(), DIFFCL(), DIFFIN(), DIFSOU(), DISPER(), ECRGEO(), ENTETE(), FLOT(), FLUSEC_TELEMAC2D(), FONSTR(), FRICTION_CHOICE(), FRONT2(), GESTIO(), GLOBAL_TO_LOCAL_POINT(), HPROPA(), HREF(), INBIEF(), INCLU2(), INCLUS(), INFILTRATION_INIT(), INITSTR(), ISITOK(), KEPSCL(), KEPSIL(), KEPSIN(), LAGRAN(), LECBUS(), LECLIM(), LECSIP(), LECSNG(), MASBAS2D(), MASKBD(), MASKOB(), MASKTO(), MAXI(), METEO(), OIL_SPILL_2D(), OS(), PARCOM(), PLANTE(), POROS(), PREBOR(), PRERES_TELEMAC2D(), PROPAG(), PROPAG_ADJ(), PROPIN_TELEMAC2D(), PROSOU(), PROXIM(), P_DMIN(), P_IMAX(), P_IMIN(), READ_FIC_CURVES(), RESCUE(), SIPHON(), SISYPHE(), SMAGOR(), SOURCE_TELEMAC2D(), STEADY(), TEL4DEL(), THOMPS(), TOPOGR(), TRAPSIG(), TRSCE(), UTIMP_TELEMAC2D(), VALRO(), VECTOR(), VISTUR(), VOLFIN(), WAC(), WALL_FRICTION(), WRITE_MESH()
Unknown(s) INFOKEENTET

Called by


HOMERE_ADJ_T2D(), HOMERE_TELEMAC2D()

Development history


Release Date Author Notes
06/06/2008 OPTIONAL ARGUMENT BOUNDARY_COLOUR ADDED TO LECLIM
16/06/2008 SECOND CALL TO PROPIN FOLLOWING CALL TO BORD
25/06/2008 DIFFIN2 RENAMED DIFFIN + ARGUMENT MESH
27/06/2008 ARGUMENTS OF PROPIN_TELEMAC2D : MESH ADDED TO THE END
29/07/2008 ADDED CALL TO FLUSEC BEFORE THE 1ST CALL PRERES
13/08/2008 CHANGED CALL AND CALL CONDITIONS TO CHARAC
20/08/2008 LIST_PTS MODIFIED IN PARALLEL
02/09/2008 CALL TO MODIFIED TEL4DEL (ADDED VELOCITY AND DIFFUSION)
25/09/2008 CALL TO MODIFIED TEL4DEL (FLUXES SENT THRU MESHWR)
21/10/2008 CALL TO MODIFIED MASKTO (PARALLEL VERSION OF MASKTO)
09/02/2009 IF H CLIPPED, USES HMIN INSTEAD OF 0.D0
16/02/2009 CALL TO POSITIVE_DEPTHS
19/02/2009 H CLIPPED IN CASE OF COMPUTATION CONTINUED
02/04/2009 NEW FILE STRUCTURE T2D_FILES AND MED FORMAT
09/07/2009 ARGUMENT NPTFR2 ADDED TO LECLIM
20/07/2009 1 OUT OF 3 CALLS TO TEL4DEL REMOVED (THANKS TO A
22/07/2009 3 NEW ARGUMENTS IN PROPAG
V6P0
25/11/2009 J-M HERVOUET (LNHE) VERSION WITH MULTIPLE TRACERS
V6P0
13/07/2010 N.DURAND (HRW), S.E.BOURBAN (HRW) Translation of French comments within the FORTRAN sources into
V6P0
21/08/2010 N.DURAND (HRW), S.E.BOURBAN (HRW) Creation of DOXYGEN tags for automated documentation and
V6P1
19/04/2011 J-M HERVOUET (LNHE) SECOND CALL TO SISYPHE MOVED AT THE END OF THE TIME LOOP SO THAT
V6P1
19/05/2011 J-M HERVOUET (LNHE) NEW THOMPSON THEORY, THAT WORKS ALSO IN PARALLEL
V6P1
09/08/2011 J-M HERVOUET (LNHE) Call to lecsng changed
V6P2
23/05/2012 C.COULET (ARTELIA) Modification for adding "bridge" file and separation of weirs and
V6P1
16/07/2012 J-M HERVOUET (LNHE) Call to TEL4DEL modified.
V6P2
03/08/2012 P. CHASSE (CETMEF) / C.COULET (ARTELIA) Modification for adding breaches management during simulation
V6P1
12/02/2013 J-M HERVOUET (EDF R&D, LNHE) Call to FLOT and DERIVE modified, call to SORFLO removed.
V6P3
11/03/2013 J-M HERVOUET (EDF R&D, LNHE) Call to METEO modified.
V6P3
22/03/2013 J-M HERVOUET (EDF R&D, LNHE) Call to WAC and SISYPHE modified.
V6P3
16/04/2013 R. KOPMANN (EDF R&D, LNHE) Adding the file format in calls to FIND_IN_SEL.
V6P3
12/06/2013 C.COULET / A.REBAI / E.DAVID (ARTELIA) Modification for new treatment of weirs
V6P3
15/07/2013 A. JOLY (EDF R&D, LNHE) Allocating algae variables and initialising them for the next
V6P3
10/10/2013 R.ATA (EDF R&D, LNHE) FORCING LISTING AND GRAPHIC OUTPUTS FOR LAST TIME STEP, FOR FV
V7P0
30/12/2013 J-M HERVOUET (EDF R&D, LNHE) Initialisation of YAFLODEL added (overlooked bug?).
V7P0
02/01/2014 J-M HERVOUET (EDF R&D, LNHE) Removing a use of KNOGL. KNOGL suppressed in call to
V7P0
31/03/2014 J-M HERVOUET (EDF LAB, LNHE) 1) Now written to enable different numbering of boundary points and
V7P0
30/04/2014 J-M HERVOUET (EDF LAB, LNHE) Now 2 calls to charac
V7P0
11/06/2014 J-M HERVOUET (EDF LAB, LNHE) LIMTRA replaced by a copy in the call to cvdftr (some schemes may
V7P0
05/08/2014 J-M HERVOUET (EDF LAB, LNHE) Initialisation of PRIVE move before call to FONSTR (it could be
V7P0
18/09/2014 C VILLARET (HRW+EDF) & J-M HERVOUET (EDF - LNHE) Calls to sisyphe and wac changed.
V7P0
10/07/2014 D WANG & P TASSI (LNHE) Secondary flow correction:
V7P0
05/11/2014 R. ATA (EDF LAB, LNHE) add optional variables to meteo in a sake of harmonization

Definition at line 778 of file telemac2d.f.

Here is the caller graph for this function:


Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0