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

Go to the source code of this file.

Functions/Subroutines

subroutine cvtrvf_nerd (F, FN, FSCEXP, H, HN, HPROP, UDEL, VDEL, DM1, ZCONV, SOLSYS, SM, SMH, YASMH, SMI, YASMI, FBOR, MASKTR, MESH, T1, T2, T3, T4, T5, T6, T7, HT, DT, ENTET, MSK, MASKEL, OPTSOU, LIMTRA, KDIR, KDDL, NPTFR, FLBOR, YAFLBOR, UNSV2D, IOPT, FLBORTRA, GLOSEG1, GLOSEG2, NBOR, FLULIM, YAFLULIM, RAIN, PLUIE, TRAIN, GIVEN_FLUX, FLUX_GIVEN, NITMAX)
 

Function/Subroutine Documentation

◆ cvtrvf_nerd()

subroutine cvtrvf_nerd ( type(bief_obj), intent(inout)  F,
type(bief_obj), intent(in)  FN,
type(bief_obj), intent(in)  FSCEXP,
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)  SM,
type(bief_obj), intent(in)  SMH,
logical, intent(in)  YASMH,
type(bief_obj), intent(in)  SMI,
logical, intent(in)  YASMI,
type(bief_obj), intent(inout)  FBOR,
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)  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(inout)  LIMTRA,
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)  FLBORTRA,
integer, dimension(*), intent(in)  GLOSEG1,
integer, dimension(*), intent(in)  GLOSEG2,
integer, dimension(nptfr), intent(in)  NBOR,
double precision, dimension(*), intent(in)  FLULIM,
logical, intent(in)  YAFLULIM,
logical, intent(in)  RAIN,
type(bief_obj), intent(in)  PLUIE,
double precision, intent(in)  TRAIN,
type(bief_obj), intent(in)  GIVEN_FLUX,
logical, intent(in)  FLUX_GIVEN,
integer, intent(in)  NITMAX 
)
Parameters
[in]optsouDIFT Logical, if yes there is diffusion of f
[in]DM1The 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]FF at time t(n+1)
[in]FBORDirichlet conditions on f.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]FLUX_GIVENIf given_flux=yes, the flux is given in GIVEN_FLUX
[in]FNF at time t(n)
[in]FSCEXPExplicit part of the source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]GIVEN_FLUXIf given_flux=yes, the flux is given in GIVEN_FLUX AND WILL NOT BE COMPUTED HERE
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork array (depth going from hn to h)
[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]LIMTRABoundary conditions on booundary 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 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in]SMSource terms.
[in]SMHSource term in continuity equation
[in]SMIImplicit source term
[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]TRAINValue of tracer 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]kdirDIFT Logical, if yes there is diffusion of f
[in]DM1The 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]FF at time t(n+1)
[in]FBORDirichlet conditions on f.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]FLUX_GIVENIf given_flux=yes, the flux is given in GIVEN_FLUX
[in]FNF at time t(n)
[in]FSCEXPExplicit part of the source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]GIVEN_FLUXIf given_flux=yes, the flux is given in GIVEN_FLUX AND WILL NOT BE COMPUTED HERE
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork array (depth going from hn to h)
[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]LIMTRABoundary conditions on booundary 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 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in]SMSource terms.
[in]SMHSource term in continuity equation
[in]SMIImplicit source term
[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]TRAINValue of tracer 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]nptfrDIFT Logical, if yes there is diffusion of f
[in]DM1The 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]FF at time t(n+1)
[in]FBORDirichlet conditions on f.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]FLUX_GIVENIf given_flux=yes, the flux is given in GIVEN_FLUX
[in]FNF at time t(n)
[in]FSCEXPExplicit part of the source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]GIVEN_FLUXIf given_flux=yes, the flux is given in GIVEN_FLUX AND WILL NOT BE COMPUTED HERE
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork array (depth going from hn to h)
[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]LIMTRABoundary conditions on booundary 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 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in]SMSource terms.
[in]SMHSource term in continuity equation
[in]SMIImplicit source term
[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]TRAINValue of tracer 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]solsysDIFT Logical, if yes there is diffusion of f
[in]DM1The 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]FF at time t(n+1)
[in]FBORDirichlet conditions on f.
[in]FLBORFluxes at boundaries
[in,out]FLBORTRATracer fluxes at boundaries
[in]FLUX_GIVENIf given_flux=yes, the flux is given in GIVEN_FLUX
[in]FNF at time t(n)
[in]FSCEXPExplicit part of the source term EQUAL TO ZERO EVERYWHERE BUT ON SOURCES WHERE THERE IS FSCE - (1-TETAT) FN SEE DIFSOU
[in]GIVEN_FLUXIf given_flux=yes, the flux is given in GIVEN_FLUX AND WILL NOT BE COMPUTED HERE
[in]GLOSEG1First point of segments
[in]GLOSEG2Second point of segments
[out]HTWork array (depth going from hn to h)
[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]LIMTRABoundary conditions on booundary 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 2: DIRAC
[in]PLUIERain or evaporation, in m/s
[in]RAINIf yes: rain or evaporation
[in]SMSource terms.
[in]SMHSource term in continuity equation
[in]SMIImplicit source term
[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]TRAINValue of tracer 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.f.

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