wac.f File Reference

Go to the source code of this file.

Functions/Subroutines

  • subroutine WAC

Function Documentation

subroutine WAC (  ) 

Module: tomawac briefs 1123. Use(s)


BIEF, DECLARATIONS_TELEMAC, DECLARATIONS_TOMAWAC, INTERFACE_TOMAWAC

Variable(s)


Argument(s) CODE, DIRMOY_TEL, DT_TEL, FX_WAC, FY_WAC, HM0_TEL, H_TEL, NIT_TEL, ORBVEL_TEL, PART, PERCOU_WAC, TPR5_TEL, T_TEL, UV_WAC, U_TEL, VV_WAC, V_TEL
Use(s) BIEF_DEF :
NCSIZE
DECLARATIONS_TOMAWAC :
ALFABJ, ALFARO, ALFLTA, ALIRE, ALPHA, APHILL, BDISPB, BDSSPB, BETAIH, BETAM, BINBI1, BINPRE, BINRBI, BINVEN, BORETG, BOUNDARY_COLOUR, BST1, CDRAG, CDSCUR, CFROT1, CIMPLI, CMOUT1, CMOUT2, CMOUT3, CMOUT4, CMOUT5, CMOUT6, COEFHS, COEFNL, COEFWD, COEFWE, COEFWF, COEFWH, COEMDI, COURAN, COUSTA, DDC, DEBUG, DECAL, DEPTH, DEUPI, DF_LIM, DIAGHF, DIFFRA, DIMBUF, DONTEL, DT, ELIM, EM2SIH, EQUA, F1, F2DIFM, FETCHL, FLTDIF, FPICL, FPMAXL, FRABL, FREQ, F_COEF, F_POIN, F_PROJ, GAM2RO, GAMARO, GAMATG, GAMBJ1, GAMBJ2, GAMMAL, GLOB, GRADEB, GRADEG, GRAPRD, GRAVIT, HIST, HM0L, IANGNL, IANMDI, IDCONF, IDISRO, IELM2, IELM3, IEXPRO, IFRBJ, IFRIH, IFRRO, IFRTG, IHMBJ, IKLE2, IKLE_EXT, INDIV, IQBBJ, IQ_OM1, ISUB, ITR01, IWHTG, I_ORIG, J_ORIG, KSPB, K_1M, K_1M2M, K_1M2P, K_1M3M, K_1M3P, K_1P, K_1P2M, K_1P2P, K_1P3M, K_1P3P, K_IF1, K_IF2, K_IF3, LAM, LBUF, LIMIT, LIMSPE, LISPRD, LVENT, LVMAC, MAREE, MAXNSP, MAXVAR, MDIA, MESH, MESH3D, NBOR, NCONF, NCONFM, NDTBRK, NELEM2, NF, NF1, NF2, NIT, NPLAN, NPLEO, NPOIN2, NPOIN3, NPRIV, NPTDIF, NPTFR, NQ_OM2, NQ_TE1, NRD, NSITS, NT1, OPTDER, PISUR2, PROINF, PROMIN, PROP, RAISF, RAZTIM, RFMLTA, ROAIR, ROEAU, SA, SB, SBETA, SBREK, SCCG, SCF, SCG, SCOSF, SCOSTE, SCT, SDDX, SDDY, SDELTA, SDEPTH, SDFR, SDIV, SDSCU, SDUX, SDUY, SDVX, SDVY, SDZHDT, SDZX, SDZY, SELT, SETA, SETAP1, SEUIL, SEUIL1, SEUIL2, SF, SFBOR, SFR, SFRE, SFROT, SIBOR, SIGMAL, SIGMBL, SITR01, SITR11, SITR12, SITR13, SITR31, SITR32, SITR33, SLIFBR, SMOUT, SNB_CLOSE, SNEIGB, SORIMP, SORLEO, SPEULI, SPHE, SPRE1L, SPRE2L, SPRIVE, SRK, SRX, SRXX, SRY, SRYY, SSHF, SSHP1, SSHZ, SSINTE, ST1, ST2, ST3, ST4, STETA, STGF, STNEW, STOLD, STRA01, STRA31, STRA32, STRA33, STRA34, STRA35, STRA36, STRA37, STRA38, STRA39, STRA41, STRA42, STRA43, STRA44, STRA53, STRA54, STRA55, STRIA, STRIF, STSDER, STSTOT, SUC, SUC1, SUC2, SUIT, SUV, SUV1, SUV2, SVC, SVC1, SVC2, SVENT, SVV, SVV1, SVV2, SXK, SXKONPT, SZF, T3_01, T3_02, TAILF, TB, TB_FAC, TB_SCA, TB_TMP, TB_TPM, TB_V14, TB_V24, TB_V34, TETA, TETA1L, TETA2L, TEXTE, TITCAS, TRA37, TRIGO, TSOU, T_POIN, VARSOR, VEGETATION, VENSTA, VENT, VX_CTE, VY_CTE, WAC_FILES, XDTBRK, XKAPPA, XLAMD, XLAMDI, XLAMDL, XLEO, XMUMDI, YLEO, ZF, ZM1, ZM2, ZREPOS, ZVENT
DECLARATIONS_TELEMAC :
COUPLING, KADH, KENT, KENTU, KINC, KLOG, KSORT
Common(s) INFO : LNG, LU
Internal(s) ADC, AT, AT0, DATE, DEBRES, DEJA, DTSI, DT_MAX, DT_MIN, DUMMY, HDC, IFREQ, IMPRES, IP, IPLAN, JDC, K, LAMBD0, LT, LT1, LT_WAC, MDC, NBD, NOLEO, NVCOU, NVHMA, NVWIN, QINDI, TC1, TC2, TIME, TM1, TM2, TV1, TV2, VITMIN, VITVEN
Alias(es) EX_WAC

Call(s)


Known(s) BIEF_DESIMP(), BIEF_VALIDA(), BUILD_IKLE_EXT(), CONDIW(), CORMAR(), CREATE_DATASET(), DUMP2D(), ECRETE(), ECRSPE(), FONSTR(), FPREAD(), FRMSET(), IFABTOM(), IMPR(), INBIEF(), INCLUS(), INIPHY(), INITAB(), LECLIM(), LECSUI(), LIMITE(), LIMWAC(), OS(), OV(), PLANTE(), PREDIF(), PRENL1(), PRENL2(), PRENL3(), PREPRO(), PREQT2(), PROPA(), PROXIM(), RADIAT(), SEMIMP(), SOR3D(), TETMOY(), TOM_CORFON(), TOTNRJ(), TRANSF(), USTAR1(), USTAR2(), VITFON(), WRITE_MESH()
Unknown(s) COURANPART, COUSTAPART, MAREEPART

Called by


HOMERE_TOMAWAC(), TELEMAC2D(), TELEMAC3D()

Development history


Release Date Author Notes
V6P3
29/01/2013 J-M HERVOUET (EDF - LNHE) Radiation stresses for Telemac now computed independently of the
V6P3
22/03/2013 J-M HERVOUET (EDF - LNHE) New arguments DIRMOY_TEL,HM0_TEL, TPR5_TEL for transmission to
V7P0
12/09/2014 E. GAGNAIRE-RENOU (EDF - LNHE) New arguments for SEMIMP for wave-blocking effects
V7P0
15/09/2014 J-M HERVOUET (EDF - LNHE) Initialisation of STRA42 and STRA34 if .NOT.VENT
V7P0
18/09/2014 C VILLARET (HRW+EDF) & J-M HERVOUET (EDF - LNHE) Adding the variable ORBVEL_TEL in argument (orbital velocity)

Definition at line 393 of file wac.f.

Here is the call graph for this function:

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