interface_waqtel.f

Go to the documentation of this file.

!                   ***********************
                    MODULE interface_waqtel
!                   ***********************
!
!
!***********************************************************************
! TELEMAC2D 6.2
!***********************************************************************
!
!
!-----------------------------------------------------------------------
!
!     DEFINITION OF INTERFACES
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE algae_death
     &(ald,mp,cmor,tr,tresp,gt,tox,npoin)
      USE bief_def
      IMPLICIT NONE
      INTEGER         , INTENT(IN):: NPOIN
      DOUBLE PRECISION, INTENT(IN):: CMOR(2),TR(npoin),TOX,TRESP
      DOUBLE PRECISION, INTENT(INOUT)::ALD(npoin),MP(npoin)
      TYPE(bief_obj)   , INTENT(IN   ) ::GT
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE algae_growth
     &(alg,cmax,ray,gt,nutr,tox,npoin )
      USE bief_def
      IMPLICIT NONE
      INTEGER         , INTENT(IN):: NPOIN
      DOUBLE PRECISION, INTENT(IN):: CMAX,RAY(npoin),NUTR(npoin),TOX
      DOUBLE PRECISION, INTENT(INOUT)::ALG(npoin)
      TYPE(bief_obj)   , INTENT(IN   ) ::GT
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE lecwaqpar
     &(ific,npoin,nbrech,optnbr,tdecbr,durbr,zfinbr,numpsd,mesh,
     & zdecbr,nbndbr,indbr,zcrbr)
        USE bief_def
        IMPLICIT NONE
        INTEGER          , INTENT(IN)    :: IFIC
        INTEGER          , INTENT(IN)    :: NPOIN
        INTEGER          , INTENT(INOUT)    :: NBRECH
        TYPE(bief_obj), INTENT(INOUT) :: OPTNBR,TDECBR,DURBR,ZFINBR
        TYPE(bief_obj), INTENT(INOUT) :: ZDECBR
        TYPE(bief_obj), INTENT(INOUT) :: NUMPSD,NBNDBR,INDBR,ZCRBR
        TYPE(bief_mesh), INTENT(INOUT) :: MESH
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs2d_biomass
     &  (npoin,wattemp,tn,texp,rayeff,hprop,t1,t2,t3,t4,t5,t6,debug)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: NPOIN,DEBUG
      DOUBLE PRECISION , INTENT(IN   ) :: WATTEMP
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,HPROP
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,RAYEFF,T1,T2,T3,T4,T5,T6
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs3d_biomass
     &  (npoin3,npoin2,nplan,wattemp,tn,texp,rayeff,zprop,
     &   t1,t2,t3,t4,t5,t6)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: NPOIN2,NPOIN3
      INTEGER          , INTENT(IN   ) :: NPLAN
      DOUBLE PRECISION , INTENT(IN   ) :: WATTEMP
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,ZPROP
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,RAYEFF
      TYPE(bief_obj)   , INTENT(INOUT) :: T1,T2,T3,T4,T5,T6
!
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs2d_eutro
     &  (npoin,wattemp,tn,texp,timp,rayeff,hprop,t1,t2,t3,t4,
     &   t5,t6,t7,t8,t9,t10,t11,t12,debug,un,vn)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: NPOIN,DEBUG
      DOUBLE PRECISION , INTENT(IN   ) :: WATTEMP
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,HPROP,UN,VN
      TYPE(bief_obj)   , INTENT(INOUT) :: TIMP,TEXP,RAYEFF
      TYPE(bief_obj)   , INTENT(INOUT) :: T1,T2,T3,T4,T5,T6,T7,T8,T9,T10
      TYPE(bief_obj)   , INTENT(INOUT) :: T11,T12
!
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs3d_eutro
     &  (npoin3,npoin2,nplan,wattemp,tn,texp,timp,rayeff,hprop,
     &   zprop,t1,t21,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,debug,un,vn)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: NPOIN3,NPOIN2,NPLAN
      INTEGER          , INTENT(IN   ) :: DEBUG
      DOUBLE PRECISION , INTENT(IN   ) :: WATTEMP
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,HPROP,ZPROP,UN,VN
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,TIMP,RAYEFF
      TYPE(bief_obj)   , INTENT(INOUT) :: T1,T21,T3,T4,T5,T6,T7,T8,T9
      TYPE(bief_obj)   , INTENT(INOUT) :: T10,T11,T12
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs2d_micropol (NPOIN,TN,TEXP,TIMP,
     &                             HPROP,CF,UN,VN,T1,T2,T3,T4)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: NPOIN
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,HPROP,CF,UN,VN
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,T1,T2,T3,T4,TIMP
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs3d_micropol (NPOIN2,TN,TEXP,
     &    TIMP,ZPROP,CF,UN,VN,T2_1,T2_2,T2_3,T3_1,T3_2,DEBUG)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: NPOIN2
      INTEGER          , INTENT(IN   ) :: DEBUG
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,ZPROP,CF,UN,VN
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,TIMP
      TYPE(bief_obj)   , INTENT(INOUT) :: T2_1,T2_2,T2_3,T3_1,T3_2
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs2d_o2
     & (npoin,wattemp,o2satu,demben,formk2,k1,k44,k22,
     &  photo,resp,tn,texp,timp,t2,t3,t4,hprop,un,vn,debug)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: FORMK2,NPOIN,DEBUG
      DOUBLE PRECISION , INTENT(IN   ) :: DEMBEN,WATTEMP
      DOUBLE PRECISION , INTENT(IN   ) :: PHOTO,RESP,K1,K44
      DOUBLE PRECISION , INTENT(INOUT) :: O2SATU,K22
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,HPROP,UN,VN
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,TIMP,T2,T3,T4
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs3d_o2
     & (npoin3,npoin2,nplan,wattemp,o2satu,demben,formk2,k1,k44,k22,
     &  photo,resp,tn,texp,timp,t31,t32,t21,hprop,zprop,un,vn)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN   ) :: NPOIN2,NPOIN3,NPLAN
      INTEGER          , INTENT(IN   ) :: FORMK2
      DOUBLE PRECISION , INTENT(IN   ) :: DEMBEN,WATTEMP
      DOUBLE PRECISION , INTENT(IN   ) :: PHOTO,RESP,K1,K44
      DOUBLE PRECISION , INTENT(INOUT) :: O2SATU,K22
      TYPE(bief_obj)   , INTENT(IN   ) :: TN,HPROP,UN,VN,ZPROP
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,TIMP,T31,T32,T21
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs2d_thermic
     & (npoin,tn,texp,hprop,patmos)
        USE bief_def
        IMPLICIT NONE
      INTEGER, INTENT(IN)             :: NPOIN
      TYPE(bief_obj), INTENT(IN)      :: TN
      TYPE(bief_obj), INTENT(INOUT)   :: TEXP
      TYPE(bief_obj), INTENT(IN)      :: HPROP
      TYPE(bief_obj), INTENT(IN)      :: PATMOS
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs3d_thermics
     & (npoin2,npoin3,ta,atabos,btabos,patmos,atmosexch,
     &  windx,windy,rho)
        USE bief_def
        IMPLICIT NONE
      INTEGER, INTENT(IN)             :: NPOIN2,NPOIN3
      INTEGER, INTENT(IN)             :: ATMOSEXCH
      TYPE(bief_obj), INTENT(IN)      :: TA,WINDX,WINDY
      TYPE(bief_obj), INTENT(INOUT)   :: ATABOS,BTABOS
      TYPE(bief_obj), INTENT(IN)      :: PATMOS,RHO
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE calcs3d_thermicv(NPOIN2,NPOIN3,NPLAN,Z,RHO,TA,TEXP,
     &                              LONGIT,LATIT,AT,MARDAT,MARTIM)
        USE bief_def
        IMPLICIT NONE
      INTEGER, INTENT(IN)             :: NPOIN2,NPOIN3,NPLAN
      INTEGER, INTENT(IN)             :: MARDAT(3),MARTIM(3)
      DOUBLE PRECISION, INTENT(IN)    :: Z(npoin3),LATIT,LONGIT,AT
      DOUBLE PRECISION, INTENT(IN)    :: RHO(npoin3)
      TYPE(bief_obj), INTENT(IN)      :: TA
      TYPE(bief_obj), INTENT(INOUT)   :: TEXP
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE depos_fx
     &  (sedp,taub,csus,taus,vitchu,npoin)
        USE bief_def
        IMPLICIT NONE
      INTEGER         , INTENT(IN)     :: NPOIN
      DOUBLE PRECISION, INTENT(IN)     :: TAUS,VITCHU
      TYPE(bief_obj)   , INTENT(IN   ) :: TAUB,CSUS
      TYPE(bief_obj)   , INTENT(INOUT) :: SEDP
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE erosion_fx
     & (sedero,taub,sf,taur,ero,zzero,npoin)
        USE bief_def
        IMPLICIT NONE
      INTEGER         , INTENT(IN)     :: NPOIN
      DOUBLE PRECISION, INTENT(IN)     :: TAUR,ERO,ZZERO
      TYPE(bief_obj)   , INTENT(IN   ) :: TAUB,SF
      TYPE(bief_obj)   , INTENT(INOUT) :: SEDERO
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE lecdon_waqtel
     & (file_desc,path,ncar,cas_file,dico_file)
        USE declarations_special
        IMPLICIT NONE
        CHARACTER(LEN=PATH_LEN), INTENT(INOUT) ::
     & file_desc(4,maxkeyword)
        INTEGER, INTENT(IN)               :: NCAR
        CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: PATH
        CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: DICO_FILE
        CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: CAS_FILE
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE nametrac_waqtel
     &  (nametrac,ntrac,process)
        IMPLICIT NONE
      INTEGER          , INTENT(IN   )::  PROCESS
      INTEGER          , INTENT(INOUT)::  NTRAC
      CHARACTER(LEN=32), INTENT(INOUT)::  NAMETRAC(*)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE nuteff
     &(lnut,trr,npoin,ipo4,ino3,kp,kn)
        USE bief_def
        IMPLICIT NONE
      INTEGER         , INTENT(IN)    :: NPOIN,IPO4,INO3
      DOUBLE PRECISION, INTENT(IN)    :: KN,KP
      DOUBLE PRECISION, INTENT(INOUT) :: LNUT(npoin)
      TYPE(bief_obj)  , INTENT(IN)    :: TRR
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE point_waqtel
     &  (mesh,ielm1,mesh3d,ielm3)
        USE bief_def
        IMPLICIT NONE
!
        INTEGER,         INTENT(IN   ) :: IELM1
        TYPE(bief_mesh), INTENT(INOUT) :: MESH
        TYPE(bief_mesh), INTENT(INOUT),OPTIONAL :: MESH3D
        INTEGER,         INTENT(IN   ),OPTIONAL :: IELM3
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE ray_effect
     &(secchi,trr,npoin,mext,i0,ik,kpe,eff,h,t1,t2)
        USE bief_def
        IMPLICIT NONE
      INTEGER         , INTENT(IN)    :: NPOIN,MEXT
      DOUBLE PRECISION, INTENT(IN)    :: I0,IK,SECCHI,KPE
      TYPE(bief_obj)  , INTENT(IN)    :: H,TRR
      TYPE(bief_obj)  , INTENT(INOUT) :: EFF,T1,T2
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE reaer
     &(formk2,k2,k22,npoin,nplan,un,vn,h,eps)
        USE bief_def
        IMPLICIT NONE
      INTEGER         , INTENT(IN)     :: FORMK2,NPOIN,NPLAN
      DOUBLE PRECISION, INTENT(IN)     :: EPS,K22
      TYPE(bief_obj)   , INTENT(IN   ) :: H,UN,VN
      TYPE(bief_obj)   , INTENT(INOUT) :: K2
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE reaer_weir
     &(formrs,h1,h2,abrs,wattemp,eps,o2satu,trup,tn,ind_o2,ir)
        USE bief_def
        IMPLICIT NONE
      INTEGER         , INTENT(IN)     :: FORMRS,IR,IND_O2
      DOUBLE PRECISION, INTENT(IN)     :: EPS,H1,H2,ABRS(2),WATTEMP
      DOUBLE PRECISION, INTENT(IN)     :: TRUP,O2SATU
      TYPE(bief_obj)   , INTENT(INOUT) :: TN
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE satur_o2
     &(sato2,formcs,wattemp,eps)
        IMPLICIT NONE
      INTEGER         , INTENT(IN)    :: FORMCS
      DOUBLE PRECISION, INTENT(IN)    :: WATTEMP,EPS
      DOUBLE PRECISION, INTENT(INOUT) :: SATO2
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE source_waq
     &(npoin3,npoin2,texp,timp,tn,hprop,u,v,cf,
     & t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12, t21,t22,t23,
     & patmos,dimm,nplan,
     & latit,longit,at,mardat,martim,zprop,rho)
        USE bief_def
        IMPLICIT NONE
      INTEGER          , INTENT(IN)    :: NPOIN3,DIMM
      INTEGER          , INTENT(IN)    :: NPLAN,NPOIN2
      INTEGER          , INTENT(IN)    :: MARDAT(3),MARTIM(3)
      DOUBLE PRECISION, INTENT(IN )    :: LATIT,LONGIT,AT
      TYPE(bief_obj)   , INTENT(IN)    :: TN,HPROP,U,V,CF,PATMOS
      TYPE(bief_obj)   , INTENT(IN)    :: ZPROP
      TYPE(bief_obj)   , INTENT(INOUT) :: TEXP,TIMP,T1,T2,T3,T4
      TYPE(bief_obj)   , INTENT(INOUT) :: T5,T6,T7,T8,T9,T10,T11,T12
      TYPE(bief_obj)   , INTENT(INOUT) :: T21,T22,T23
      TYPE(bief_obj), INTENT(IN),OPTIONAL :: RHO
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE taub_waqtel
     &(cf,density,taub,npoin,un,vn)
        USE bief_def
        IMPLICIT NONE
      INTEGER         , INTENT(IN)     :: NPOIN
      DOUBLE PRECISION, INTENT(IN)     :: DENSITY
      TYPE(bief_obj)   , INTENT(IN   ) :: CF,UN,VN
      TYPE(bief_obj)   , INTENT(INOUT) :: TAUB
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      INTERFACE
        SUBROUTINE yasmi_waq
     &  (yasmi)
        IMPLICIT NONE
      LOGICAL          , INTENT(INOUT)::  YASMI(*)
        END SUBROUTINE
      END INTERFACE
!
!-----------------------------------------------------------------------
!
      END MODULE interface_waqtel