interface_artemis.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\interface_artemis.f
00002 !
00017       MODULE INTERFACE_ARTEMIS
00018 !
00019 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00020 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00021 !
00022       USE BIEF_DEF
00023 !
00024 !-----------------------------------------------------------------------
00025 !
00026 !     DEFINES INTERFACES
00027 !
00028 !-----------------------------------------------------------------------
00029 !
00030       INTERFACE
00031         SUBROUTINE BERKHO(LT)
00032       USE BIEF_DEF
00033       IMPLICIT NONE
00034       INTEGER, INTENT(IN) :: LT
00035         END SUBROUTINE
00036       END INTERFACE
00037 !
00038 !-----------------------------------------------------------------------
00039 !
00040       INTERFACE
00041         SUBROUTINE CALCFW
00042      &(I,H,C,CG,K,HMU,NPOIN,OMEGA,GRAV,VISCO,
00043      & DIAM90,DIAM50,MVSED,MVEAU,FORMFR,
00044      & REGIDO,RICOEF,ENTREG,ENTRUG,FFW)
00045       USE BIEF_DEF
00046       IMPLICIT NONE
00047       INTEGER I, NPOIN, FORMFR, REGIDO
00048       DOUBLE PRECISION C(NPOIN),CG(NPOIN),K(NPOIN)
00049       DOUBLE PRECISION HMU(NPOIN),H(NPOIN),GRAV,OMEGA
00050       DOUBLE PRECISION VISCO, DIAM90, DIAM50,MVSED
00051       DOUBLE PRECISION MVEAU, RICOEF,FFW
00052       LOGICAL ENTREG,ENTRUG
00053         END SUBROUTINE
00054       END INTERFACE
00055 !
00056 !-----------------------------------------------------------------------
00057 !
00058       INTERFACE
00059         SUBROUTINE CALCQB
00060      &(Q1,Q2,Q3)
00061       IMPLICIT NONE
00062       DOUBLE PRECISION Q1,Q2,Q3
00063         END SUBROUTINE
00064       END INTERFACE
00065 !
00066 !-----------------------------------------------------------------------
00067 !
00068 !      INTERFACE
00069 !        SUBROUTINE CALDIR()
00070 !       USE BIEF_DEF
00071 !       IMPLICIT NONE
00072 !        END SUBROUTINE
00073 !      END INTERFACE
00074 !
00075 !-----------------------------------------------------------------------
00076 !
00077       INTERFACE
00078         SUBROUTINE CALTETAP(TETA,XNEBOR,YNEBOR,XSGBOR,YSGBOR,ADIR,NPTFR)
00079       USE BIEF_DEF
00080       IMPLICIT NONE
00081       INTEGER                      :: NPTFR
00082       DOUBLE PRECISION, INTENT(IN) :: XSGBOR(NPTFR,4),YSGBOR(NPTFR,4)
00083       DOUBLE PRECISION, INTENT(IN) :: XNEBOR(NPTFR,2),YNEBOR(NPTFR,2)
00084       DOUBLE PRECISION TETA(NPTFR),ADIR(NPTFR)
00085         END SUBROUTINE
00086       END INTERFACE
00087 !
00088 !-----------------------------------------------------------------------
00089 !
00090       INTERFACE
00091         SUBROUTINE CNTPRE
00092      &(DAM,NPOIN,IPRECO,IPREC2)
00093       IMPLICIT NONE
00094       INTEGER NPOIN,IPRECO,IPREC2
00095       DOUBLE PRECISION DAM(NPOIN)
00096         END SUBROUTINE
00097       END INTERFACE
00098 !
00099 !-----------------------------------------------------------------------
00100 !
00101       INTERFACE
00102         SUBROUTINE DIRALE
00103      &(DALE,EXPOS,TETAH,TETMIN,TETMAX,
00104      & NDALE,TRA01,NPOIN,PRIVE,NPRIV)
00105       USE BIEF_DEF
00106       IMPLICIT NONE
00107       INTEGER NDALE,NPOIN,NPRIV
00108       DOUBLE PRECISION DALE(NDALE),TRA01(NPOIN)
00109       DOUBLE PRECISION EXPOS,TETAH,TETMIN,TETMAX
00110       TYPE(BIEF_OBJ) :: PRIVE
00111         END SUBROUTINE
00112       END INTERFACE
00113 !
00114 !-----------------------------------------------------------------------
00115 !
00116       INTERFACE
00117         SUBROUTINE DISMOY
00118      &(NPOIN,NELEM,X,Y,IKLE,K,LISHHO)
00119       IMPLICIT NONE
00120       INTEGER NPOIN,NELEM,LISHHO
00121       INTEGER IKLE(NELEM,*)
00122       DOUBLE PRECISION X(NPOIN),Y(NPOIN),K(NPOIN)
00123         END SUBROUTINE
00124       END INTERFACE
00125 !
00126 !-----------------------------------------------------------------------
00127 !
00128       INTERFACE
00129         SUBROUTINE ENTART
00130      &(ITITRE,X,LT,NBR,NBRTOT,ALEMON,ALEMUL,BALAYE)
00131       IMPLICIT NONE
00132       INTEGER ITITRE,LT,NBR,NBRTOT
00133       DOUBLE PRECISION X
00134       LOGICAL ALEMON,ALEMUL,BALAYE
00135         END SUBROUTINE
00136       END INTERFACE
00137 !
00138 !-----------------------------------------------------------------------
00139 !
00140       INTERFACE
00141         DOUBLE PRECISION FUNCTION FCTE1(KH)
00142         IMPLICIT NONE
00143         DOUBLE PRECISION, INTENT(IN) :: KH
00144         END FUNCTION
00145       END INTERFACE
00146 !
00147 !-----------------------------------------------------------------------
00148 !
00149       INTERFACE
00150         DOUBLE PRECISION FUNCTION FCTE2(KH)
00151         IMPLICIT NONE
00152         DOUBLE PRECISION, INTENT(IN) :: KH
00153         END FUNCTION
00154       END INTERFACE
00155 !
00156 !-----------------------------------------------------------------------
00157 !
00158       INTERFACE
00159         SUBROUTINE FWSPEC
00160      &(FW,FWCOEF,X,Y,NPOIN,PRIVE,ZF)
00161       USE BIEF_DEF
00162       IMPLICIT NONE
00163       INTEGER NPOIN
00164       DOUBLE PRECISION FW(NPOIN),X(NPOIN),Y(NPOIN)
00165       DOUBLE PRECISION ZF(NPOIN),FWCOEF
00166       TYPE(BIEF_OBJ) :: PRIVE
00167         END SUBROUTINE
00168       END INTERFACE
00169 !
00170 !-----------------------------------------------------------------------
00171 !
00172       INTERFACE
00173         SUBROUTINE LECDON_ARTEMIS
00174      &(FILE_DESC,PATH,NCAR,CODE)
00175         IMPLICIT NONE
00176 !
00177 !
00178       CHARACTER(LEN=24), INTENT(IN)     :: CODE
00179       CHARACTER(LEN=144), INTENT(INOUT) :: FILE_DESC(4,*)
00180       INTEGER, INTENT(IN)               :: NCAR
00181       CHARACTER(LEN=250), INTENT(IN)    :: PATH
00182 !
00183         END SUBROUTINE
00184       END INTERFACE
00185 !
00186 !-----------------------------------------------------------------------
00187 ! CCP : V6P2 doesn't use leclim_artemis.f / Use of leclim.f
00188 !      INTERFACE
00189 !        SUBROUTINE LECLIM_ARTEMIS
00190 !     &(LIHBOR,LIUBOR,NPTFR,NBOR,STDGEO,NLIM,
00191 !     & ISEG , XSEG , YSEG , NACHB , NUMLIQ, IFAPAR )
00192 !       USE BIEF_DEF
00193 !       IMPLICIT NONE
00194 !       INTEGER NPTFR,STDGEO,NLIM
00195 !       INTEGER ISEG(NPTFR),NACHB(5,*),NUMLIQ(*)
00196 !       INTEGER LIHBOR(NPTFR),LIUBOR(NPTFR),NBOR(NPTFR)
00197 !       DOUBLE PRECISION XSEG(NPTFR),YSEG(NPTFR)
00198 !       INTEGER :: IFAPAR(6,*)
00199 !        END SUBROUTINE
00200 !      END INTERFACE
00201 
00202 !-----------------------------------------------------------------------
00203 !
00204       INTERFACE
00205         SUBROUTINE NOMVAR_ARTEMIS
00206      &(TEXTE,TEXTPR,MNEMO)
00207       IMPLICIT NONE
00208       CHARACTER*32 TEXTE(26),TEXTPR(26)
00209       CHARACTER*8  MNEMO(26)
00210         END SUBROUTINE
00211       END INTERFACE
00212 !
00213 !-----------------------------------------------------------------------
00214 !
00215       INTERFACE
00216         SUBROUTINE PENTCO(II)
00217       USE BIEF_DEF
00218       IMPLICIT NONE
00219       INTEGER, INTENT(IN) :: II
00220         END SUBROUTINE
00221       END INTERFACE
00222 !
00223 !
00224 !
00225 !-----------------------------------------------------------------------
00226 !
00227       INTERFACE
00228         SUBROUTINE PERALE
00229      &(PALE,GAMMA,PERPIC,NPALE,TRA01,
00230      & NPOIN,PRIVE,NPRIV,PMIN,PMAX)
00231       USE BIEF_DEF
00232       IMPLICIT NONE
00233       INTEGER NPALE,NPOIN,NPRIV
00234       DOUBLE PRECISION PALE(NPALE),TRA01(NPOIN)
00235       DOUBLE PRECISION PERPIC,GAMMA,PMIN,PMAX
00236       TYPE(BIEF_OBJ) :: PRIVE
00237         END SUBROUTINE
00238       END INTERFACE
00239 !
00240 !-----------------------------------------------------------------------
00241 !
00242       INTERFACE
00243         SUBROUTINE RADIA1(LISHHO)
00244       USE BIEF_DEF
00245       IMPLICIT NONE
00246       INTEGER LISHHO
00247         END SUBROUTINE
00248       END INTERFACE
00249 !
00250 !-----------------------------------------------------------------------
00251 !
00252       INTERFACE
00253         SUBROUTINE RADIA2(LISHHO)
00254       USE BIEF_DEF
00255       IMPLICIT NONE
00256       INTEGER LISHHO
00257         END SUBROUTINE
00258       END INTERFACE
00259 !
00260 !-----------------------------------------------------------------------
00261 !
00262       INTERFACE
00263         DOUBLE PRECISION FUNCTION SPD(TETA)
00264       IMPLICIT NONE
00265       DOUBLE PRECISION TETA
00266         END FUNCTION
00267       END INTERFACE
00268 !
00269 !-----------------------------------------------------------------------
00270 !
00271       INTERFACE
00272         DOUBLE PRECISION FUNCTION SPE(F)
00273       IMPLICIT NONE
00274       DOUBLE PRECISION F
00275         END FUNCTION
00276       END INTERFACE
00277 !
00278 !-----------------------------------------------------------------------
00279 !
00280       INTERFACE
00281         DOUBLE PRECISION FUNCTION STWC(F,DIR)
00282         IMPLICIT NONE
00283         DOUBLE PRECISION F,DIR
00284         END FUNCTION
00285       END INTERFACE
00286 !
00287 !-----------------------------------------------------------------------
00288 !
00289       INTERFACE
00290         SUBROUTINE UTIMP
00291      &(PHIR,PHII,C,CG,K,X,Y,ZF,H,
00292      & HHO,U0,V0,PHAS,S,TRA01,TRA02,TRA03,TRA04,INCI,
00293      & GRAV,PER,OMEGA,IKLE,NBOR,KP1BOR,
00294      & NELEM,NELMAX,IELM,IELMB,NPTFR,NPOIN,PRIVE)
00295       USE BIEF_DEF
00296       IMPLICIT NONE
00297       INTEGER NELEM,NELMAX,IELM,IELMB,NPTFR,NPOIN
00298       INTEGER IKLE(NELMAX,3),NBOR(NPTFR),KP1BOR(NPTFR)
00299       DOUBLE PRECISION PHIR(NPOIN),PHII(NPOIN)
00300       DOUBLE PRECISION C(NPOIN),CG(NPOIN),K(NPOIN)
00301       DOUBLE PRECISION X(NPOIN),Y(NPOIN),ZF(NPOIN)
00302       DOUBLE PRECISION H(NPOIN),HHO(NPOIN),U0(NPOIN),V0(NPOIN)
00303       DOUBLE PRECISION INCI(NPOIN)
00304       DOUBLE PRECISION PHAS(NPOIN),S(NPOIN)
00305       DOUBLE PRECISION TRA01(NPOIN),TRA02(NPOIN)
00306       DOUBLE PRECISION TRA03(NPOIN),TRA04(NPOIN)
00307       DOUBLE PRECISION GRAV,PER,OMEGA
00308       TYPE(BIEF_OBJ) :: PRIVE
00309         END SUBROUTINE
00310       END INTERFACE
00311 !
00312 !=======================================================================
00313 !
00314       END MODULE INTERFACE_ARTEMIS
00315 !
00316 !#######################################################################
00317 !

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