declarations_parallel.F

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\parallel\declarations_parallel.F
00002 !
00012       MODULE DECLARATIONS_PARALLEL
00013         IMPLICIT NONE
00014 #if defined (HAVE_MPI)
00015         INCLUDE 'mpif.h'
00016 #endif
00017 
00018 #if !defined (HAVE_MPI)
00019         ! Creating wrapper for some of MPI keywords that are used in variable declaration
00020         ! Using boggus values they should never be used
00021         ! They are include in mpi.hf
00022         INTEGER, PARAMETER :: MPI_ADDRESS_KIND=4
00023         INTEGER, PARAMETER :: MPI_INTEGER =0
00024         INTEGER, PARAMETER :: MPI_DOUBLE_PRECISION  =0
00025         INTEGER, PARAMETER :: MPI_UB      =0
00026         INTEGER, PARAMETER :: MPI_COMM_WORLD=0
00027         INTEGER, PARAMETER :: MPI_SUCCESS   =0
00028 #endif
00029         TYPE CHARAC_TYPE
00030           SEQUENCE   ! BUT SEEMS USELESS (HENCE TRICK BELOW WITH VOID)
00031           INTEGER :: MYPID ! PARTITION OF THE TRACEBACK ORIGIN (HEAD)
00032           INTEGER :: NEPID ! THE NEIGHBOUR PARTITION THE TRACEBACK ENTERS TO
00033           INTEGER :: INE   ! THE LOCAL 2D ELEMENT NR THE TRACEBACK ENTERS IN THE NEIGBOUR PARTITION
00034           INTEGER :: KNE   ! THE LOCAL LEVEL THE TRACEBACK ENTERS IN THE NEIGBOUR PARTITION
00035           INTEGER :: IOR   ! THE POSITION OF THE TRAJECTORY -HEAD- IN MYPID [THE 2D/3D NODE OF ORIGIN]
00036           INTEGER :: ISP   ! CURRENT RUNGE-KUTTA STEPS PASSED AS COLLECTED
00037           INTEGER :: NSP   ! TOTAL RUNGE-KUTTA STEPS
00038           INTEGER :: IFR   ! TRICK FOR ALIGNMENT
00039           DOUBLE PRECISION :: XP,YP,ZP,FP             ! THE (X,Y,Z)-POSITION NOW
00040           DOUBLE PRECISION :: DX,DY,DZ,DF             ! THE DISPLACEMENTS
00041           DOUBLE PRECISION :: BASKET(10) ! VARIABLES INTERPOLATED AT THE FOOT
00042         END TYPE CHARAC_TYPE
00043 !
00044         TYPE ALG_TYPE
00045           SEQUENCE   ! NECESSARY TO DEFINE MPI TYPE ALG_CHAR
00046           INTEGER :: MYPID ! PARTITION OF THE TRACEBACK ORIGIN (HEAD)
00047           INTEGER :: NEPID ! THE NEIGHBOUR PARTITION THE TRACEBACK ENTERS TO
00048           INTEGER :: IGLOB  ! THE GLOBAL NUMBER OF THE PARTICLES
00049           INTEGER :: FLAG  ! USED TO ALIGN FIELDS
00050           DOUBLE PRECISION :: VX,VY,VZ  ! THE (X,Y,Z) PARTICLE VELOCITY
00051           DOUBLE PRECISION :: UX,UY,UZ  ! THE (X,Y,Z) FLUID VELOCITY
00052           DOUBLE PRECISION :: UX_AV,UY_AV,UZ_AV  ! THE (X,Y,Z) AVERAGE FLUID VELOCITY
00053           DOUBLE PRECISION :: K_AV,EPS_AV  ! THE VALUES OF K AND EPS
00054           DOUBLE PRECISION :: H_FLU  ! THE WATER DEPTH AT POSITION OF VELOCITY
00055           DOUBLE PRECISION :: PSI(3*101) ! VARIABLE PSI USED FOR THE BASSET FORCE
00056         END TYPE ALG_TYPE
00057 !
00058         TYPE OIL_TYPE
00059           SEQUENCE
00060           INTEGER :: MYPID ! PARTITION OF THE TRACEBACK ORIGIN (HEAD)
00061           INTEGER :: NEPID ! THE NEIGHBOUR PARTITION THE TRACEBACK ENTERS TO
00062           INTEGER :: INE   ! THE LOCAL 2D ELEMENT NR THE TRACEBACK ENTERS IN THE NEIGBOUR PARTITION
00063           INTEGER :: KNE   ! THE LOCAL LEVEL THE TRACEBACK ENTERS IN THE NEIGBOUR PARTITION
00064           INTEGER :: IOR   ! THE POSITION OF THE TRAJECTORY -HEAD- IN MYPID [THE 2D/3D NODE OF ORIGIN]
00065           INTEGER :: STATE   ! CURRENT RUNGE-KUTTA STEPS PASSED AS COLLECTED
00066           INTEGER :: TPSECH   ! TOTAL RUNGE-KUTTA STEPS
00067           INTEGER :: IFR   ! FREQUENCY
00068           DOUBLE PRECISION :: SURFACE
00069           DOUBLE PRECISION :: MASS0
00070           DOUBLE PRECISION :: MASS
00071           DOUBLE PRECISION :: MASS_EVAP
00072           DOUBLE PRECISION :: MASS_DISS
00073           DOUBLE PRECISION :: MASS_HAP(10)
00074           DOUBLE PRECISION :: MASS_COMPO(10)
00075           DOUBLE PRECISION :: TB_HAP(10)
00076           DOUBLE PRECISION :: TB_COMPO(10)
00077           DOUBLE PRECISION :: SOL_HAP(10)
00078           DOUBLE PRECISION :: SOL_COMPO(10)
00079         END TYPE OIL_TYPE
00080 !
00081       END MODULE

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