The TELEMAC-MASCARET system  trunk
Functions/Subroutines
cvtrvf_nerd_2.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine cvtrvf_nerd_2 (F1, F1N, F1SCEXP, F2, F2N, F2SCEXP, H, HN, HPROP, UDEL, VDEL, DM1, ZCONV, SOLSYS, SM1, SM2, SMH, YASMH, SMI1, SMI2, YASMI, F1BOR, F2BOR, MASKTR, MESH, T1, T2, T3, T4, T5, T6, T7, T8, HT, DT, ENTET, MSK, MASKEL, OPTSOU, LIMTRA1, LIMTRA2, KDIR, KDDL, NPTFR, FLBOR, YAFLBOR, UNSV2D, IOPT, FLBORTRA1, FLBORTRA2, GLOSEG1, GLOSEG2, NBOR, RAIN, PLUIE, TRAIN1, TRAIN2, NITMAX)
 

Function/Subroutine Documentation

◆ cvtrvf_nerd_2()

subroutine cvtrvf_nerd_2 ( type(bief_obj), intent(inout)  F1,
type(bief_obj), intent(in)  F1N,
type(bief_obj), intent(in)  F1SCEXP,
type(bief_obj), intent(inout)  F2,
type(bief_obj), intent(in)  F2N,
type(bief_obj), intent(in)  F2SCEXP,
type(bief_obj), intent(in)  H,
type(bief_obj), intent(in)  HN,
type(bief_obj), intent(in)  HPROP,
type(bief_obj), intent(in)  UDEL,
type(bief_obj), intent(in)  VDEL,
type(bief_obj), intent(in)  DM1,
type(bief_obj), intent(in)  ZCONV,
integer, intent(in)  SOLSYS,
type(bief_obj), intent(inout)  SM1,
type(bief_obj), intent(inout)  SM2,
type(bief_obj), intent(in)  SMH,
logical, intent(in)  YASMH,
type(bief_obj), intent(in)  SMI1,
type(bief_obj), intent(in)  SMI2,
logical, intent(in)  YASMI,
type(bief_obj), intent(in)  F1BOR,
type(bief_obj), intent(in)  F2BOR,
type(bief_obj), intent(in)  MASKTR,
type(bief_mesh)  MESH,
type(bief_obj), intent(inout)  T1,
type(bief_obj), intent(inout)  T2,
type(bief_obj), intent(inout)  T3,
type(bief_obj), intent(inout)  T4,
type(bief_obj), intent(inout)  T5,
type(bief_obj), intent(inout)  T6,
type(bief_obj), intent(inout)  T7,
type(bief_obj), intent(inout)  T8,
type(bief_obj), intent(inout)  HT,
double precision, intent(in)  DT,
logical, intent(in)  ENTET,
logical, intent(in)  MSK,
type(bief_obj), intent(in)  MASKEL,
integer, intent(in)  OPTSOU,
integer, dimension(nptfr), intent(in)  LIMTRA1,
integer, dimension(nptfr), intent(in)  LIMTRA2,
integer, intent(in)  KDIR,
integer, intent(in)  KDDL,
integer, intent(in)  NPTFR,
type(bief_obj), intent(inout)  FLBOR,
logical, intent(in)  YAFLBOR,
type(bief_obj), intent(in)  UNSV2D,
integer, intent(in)  IOPT,
type(bief_obj), intent(inout)  FLBORTRA1,
type(bief_obj), intent(inout)  FLBORTRA2,
integer, dimension(*), intent(in)  GLOSEG1,
integer, dimension(*), intent(in)  GLOSEG2,
integer, dimension(nptfr), intent(in)  NBOR,
logical, intent(in)  RAIN,
type(bief_obj), intent(in)  PLUIE,
double precision, intent(in)  TRAIN1,
double precision, intent(in)  TRAIN2,
integer, intent(in)  NITMAX 
)
Parameters
[in]optsouDM1 The piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in]DTTime step
[in]ENTETLogical, if yes information is given on mass CONSERVATION.
[out]F1F1 at time t(n+1)
[out]F2F2 at time t(n+1)
[in]F1BORDirichlet conditions on f1.
[in]F2BORDirichlet conditions on f2.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]F1NF1 at time t(n)
[in]F2NF2 at time t(n)
[in]F1SCEXPExplicit part of the f1 source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]F2SCEXPExplicit part of the f1 source term
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork arrays (modified depths to take mass-lumping INTO ACCOUNT)
[in]HPROPPropagation depth (done in cvdftr).
[in]IOPTOptions for computation (number between 0 and 13) THE TENS (IOPT2, I.E. 0 OR 1): 0: UCONV OBEYS THE CONTINUITY EQUATION 1: UCONV DOES NOT OBEY THE CONTINUITY EQUATION THE UNITS (IOPT1, I.E. 0 TO 3): VARIANT FOR FLUXES 0: CONSTANT PER ELEMENT = 0 1: CHI-TUAN PHAM'S CONSTANT 2: N SCHEME 3: PSI SCHEME
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRA1Boundary conditions of f1 on boundary points
[in]LIMTRA2Boundary conditions of f2 on boundary points
[in]MASKELMasking of elements =1. : NORMAL =0. : MASKED ELEMENT
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NBORGlobal numbers of boundary points
[in]NITMAXMaximum number of iterations
[in]NPTFRNumber of boundary points
[in]OPTSOUType of sources 1: NORMAL
[in]PLUIERain or evaporation in mm/s in a bief_obj
[in]RAINIf yes, rain or evaporation
[in]SM1Source terms of f1.
[in]SM2Source terms of f2.
[in]SMHSource term in continuity equation
[in]SMI1Implicit source term of f1.
[in]SMI2Implicit source term of f2.
[in]SOLSYS1 or 2. if 2 advection field is uconv + dm1*grad(zconv)
[in,out]T1Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in]TRAIN1Value of tracer 1 in the rain
[in]TRAIN2Value of tracer 2 in the rain
[in]UDELX-component of advection velocity
[in]UNSV2DInverse of v2dpar
[in]VDELX-component of advection velocity
[in]YAFLBORIf yes flbor is given
[in]YASMHIf yes, smh must be taken into account
[in]YASMIIf yes, smi must be taken into account
[in]ZCONVThe piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in]kdirDM1 The piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in]DTTime step
[in]ENTETLogical, if yes information is given on mass CONSERVATION.
[out]F1F1 at time t(n+1)
[out]F2F2 at time t(n+1)
[in]F1BORDirichlet conditions on f1.
[in]F2BORDirichlet conditions on f2.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]F1NF1 at time t(n)
[in]F2NF2 at time t(n)
[in]F1SCEXPExplicit part of the f1 source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]F2SCEXPExplicit part of the f1 source term
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork arrays (modified depths to take mass-lumping INTO ACCOUNT)
[in]HPROPPropagation depth (done in cvdftr).
[in]IOPTOptions for computation (number between 0 and 13) THE TENS (IOPT2, I.E. 0 OR 1): 0: UCONV OBEYS THE CONTINUITY EQUATION 1: UCONV DOES NOT OBEY THE CONTINUITY EQUATION THE UNITS (IOPT1, I.E. 0 TO 3): VARIANT FOR FLUXES 0: CONSTANT PER ELEMENT = 0 1: CHI-TUAN PHAM'S CONSTANT 2: N SCHEME 3: PSI SCHEME
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRA1Boundary conditions of f1 on boundary points
[in]LIMTRA2Boundary conditions of f2 on boundary points
[in]MASKELMasking of elements =1. : NORMAL =0. : MASKED ELEMENT
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NBORGlobal numbers of boundary points
[in]NITMAXMaximum number of iterations
[in]NPTFRNumber of boundary points
[in]OPTSOUType of sources 1: NORMAL
[in]PLUIERain or evaporation in mm/s in a bief_obj
[in]RAINIf yes, rain or evaporation
[in]SM1Source terms of f1.
[in]SM2Source terms of f2.
[in]SMHSource term in continuity equation
[in]SMI1Implicit source term of f1.
[in]SMI2Implicit source term of f2.
[in]SOLSYS1 or 2. if 2 advection field is uconv + dm1*grad(zconv)
[in,out]T1Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in]TRAIN1Value of tracer 1 in the rain
[in]TRAIN2Value of tracer 2 in the rain
[in]UDELX-component of advection velocity
[in]UNSV2DInverse of v2dpar
[in]VDELX-component of advection velocity
[in]YAFLBORIf yes flbor is given
[in]YASMHIf yes, smh must be taken into account
[in]YASMIIf yes, smi must be taken into account
[in]ZCONVThe piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in]nptfrDM1 The piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in]DTTime step
[in]ENTETLogical, if yes information is given on mass CONSERVATION.
[out]F1F1 at time t(n+1)
[out]F2F2 at time t(n+1)
[in]F1BORDirichlet conditions on f1.
[in]F2BORDirichlet conditions on f2.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]F1NF1 at time t(n)
[in]F2NF2 at time t(n)
[in]F1SCEXPExplicit part of the f1 source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]F2SCEXPExplicit part of the f1 source term
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork arrays (modified depths to take mass-lumping INTO ACCOUNT)
[in]HPROPPropagation depth (done in cvdftr).
[in]IOPTOptions for computation (number between 0 and 13) THE TENS (IOPT2, I.E. 0 OR 1): 0: UCONV OBEYS THE CONTINUITY EQUATION 1: UCONV DOES NOT OBEY THE CONTINUITY EQUATION THE UNITS (IOPT1, I.E. 0 TO 3): VARIANT FOR FLUXES 0: CONSTANT PER ELEMENT = 0 1: CHI-TUAN PHAM'S CONSTANT 2: N SCHEME 3: PSI SCHEME
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRA1Boundary conditions of f1 on boundary points
[in]LIMTRA2Boundary conditions of f2 on boundary points
[in]MASKELMasking of elements =1. : NORMAL =0. : MASKED ELEMENT
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NBORGlobal numbers of boundary points
[in]NITMAXMaximum number of iterations
[in]NPTFRNumber of boundary points
[in]OPTSOUType of sources 1: NORMAL
[in]PLUIERain or evaporation in mm/s in a bief_obj
[in]RAINIf yes, rain or evaporation
[in]SM1Source terms of f1.
[in]SM2Source terms of f2.
[in]SMHSource term in continuity equation
[in]SMI1Implicit source term of f1.
[in]SMI2Implicit source term of f2.
[in]SOLSYS1 or 2. if 2 advection field is uconv + dm1*grad(zconv)
[in,out]T1Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in]TRAIN1Value of tracer 1 in the rain
[in]TRAIN2Value of tracer 2 in the rain
[in]UDELX-component of advection velocity
[in]UNSV2DInverse of v2dpar
[in]VDELX-component of advection velocity
[in]YAFLBORIf yes flbor is given
[in]YASMHIf yes, smh must be taken into account
[in]YASMIIf yes, smi must be taken into account
[in]ZCONVThe piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in]solsysDM1 The piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in]DTTime step
[in]ENTETLogical, if yes information is given on mass CONSERVATION.
[out]F1F1 at time t(n+1)
[out]F2F2 at time t(n+1)
[in]F1BORDirichlet conditions on f1.
[in]F2BORDirichlet conditions on f2.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]F1NF1 at time t(n)
[in]F2NF2 at time t(n)
[in]F1SCEXPExplicit part of the f1 source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]F2SCEXPExplicit part of the f1 source term
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork arrays (modified depths to take mass-lumping INTO ACCOUNT)
[in]HPROPPropagation depth (done in cvdftr).
[in]IOPTOptions for computation (number between 0 and 13) THE TENS (IOPT2, I.E. 0 OR 1): 0: UCONV OBEYS THE CONTINUITY EQUATION 1: UCONV DOES NOT OBEY THE CONTINUITY EQUATION THE UNITS (IOPT1, I.E. 0 TO 3): VARIANT FOR FLUXES 0: CONSTANT PER ELEMENT = 0 1: CHI-TUAN PHAM'S CONSTANT 2: N SCHEME 3: PSI SCHEME
[in]KDDLConvention for degree of freedom
[in]KDIRConvention for dirichlet point
[in]LIMTRA1Boundary conditions of f1 on boundary points
[in]LIMTRA2Boundary conditions of f2 on boundary points
[in]MASKELMasking of elements =1. : NORMAL =0. : MASKED ELEMENT
[in]MESHMesh structure
[in]MSKIf yes, there is masked elements.
[in]NBORGlobal numbers of boundary points
[in]NITMAXMaximum number of iterations
[in]NPTFRNumber of boundary points
[in]OPTSOUType of sources 1: NORMAL
[in]PLUIERain or evaporation in mm/s in a bief_obj
[in]RAINIf yes, rain or evaporation
[in]SM1Source terms of f1.
[in]SM2Source terms of f2.
[in]SMHSource term in continuity equation
[in]SMI1Implicit source term of f1.
[in]SMI2Implicit source term of f2.
[in]SOLSYS1 or 2. if 2 advection field is uconv + dm1*grad(zconv)
[in,out]T1Work bief_obj structure
[in,out]T2Work bief_obj structure
[in,out]T3Work bief_obj structure
[in,out]T4Work bief_obj structure
[in,out]T5Work bief_obj structure
[in,out]T6Work bief_obj structure
[in,out]T7Work bief_obj structure
[in,out]T8Work bief_obj structure
[in]TRAIN1Value of tracer 1 in the rain
[in]TRAIN2Value of tracer 2 in the rain
[in]UDELX-component of advection velocity
[in]UNSV2DInverse of v2dpar
[in]VDELX-component of advection velocity
[in]YAFLBORIf yes flbor is given
[in]YASMHIf yes, smh must be taken into account
[in]YASMIIf yes, smi must be taken into account
[in]ZCONVThe piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS.

Definition at line 13 of file cvtrvf_nerd_2.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: