cvsp_outputfiles.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\cvsp_outputfiles.f
00002 !
00029                         MODULE CVSP_OUTPUTFILES
00030 !                       ***********************
00031 !
00032 !***********************************************************************
00033 ! SISYPHE   V6P3                                   14/03/2013
00034 !***********************************************************************
00035 !
00036 !
00037 !
00038 !
00039 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00040 !|                |<--|
00041 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00042 !
00043         USE BIEF_DEF
00044         USE DECLARATIONS_SISYPHE, ONLY: NSICLM
00045 
00046         IMPLICIT NONE
00047 
00048         INTEGER :: OUTPUTCOUNTER             = 0
00049         INTEGER, PARAMETER :: NUMCP          = 30 ! NUMBER OF CHECK POINTS
00050         INTEGER, PARAMETER :: NUMVARCP2RES   = 3  ! NUMBER OF CHECK POINT VARIABLES TO BE WRITTEN TO FILE T2D_CP
00051         INTEGER, PARAMETER :: NUMVARUR2RES   = 3  ! NUMBER OF USER VARIABLES TO BE WRITTEN TO FILE T2D_UR
00052         INTEGER, PARAMETER :: NUMVARUR3D2RES = 13 ! NUMBER OF USER VARIABLES TO BE WRITTEN TO FILE T2D_UR3D
00053         INTEGER, PARAMETER :: NUMVAR2DHYD    = 6  ! 2D-HYDRAULIC TO 3D FILE Z,U,V,W,SCALARU,TAU
00054         INTEGER NEXTCP                            ! NEXT CP SLOT TO WRITE INTO
00055         INTEGER CP_ONCNT                          ! DEBUG NUMBER OF THE DEACTIVATED CHECK POINT VARIABLE
00056 
00057         DOUBLE PRECISION USERTIME
00058         DOUBLE PRECISION USERPRINTCOUNT
00059 !
00060 !-----------------------------------------------------------------------
00061 !
00062 !       1) VECTORS
00063 !
00064 !-----------------------------------------------------------------------
00065 !
00066         TYPE(BIEF_OBJ), TARGET :: VSP_FRA(NSICLM)
00067         TYPE(BIEF_OBJ), TARGET :: VSP_D, VSP_D50, VSP_ERROR
00068         TYPE(BIEF_OBJ), TARGET :: UR2DHYD(NUMVAR2DHYD)
00069 !
00070 !-----------------------------------------------------------------------
00071 !
00072 !       3) BLOCKS
00073 !
00074 !-----------------------------------------------------------------------
00075 !
00076 !     BLOCK OF VARIABLES FOR OPTIONAL CHECKPOINT OUTPUT
00077       TYPE(BIEF_OBJ), TARGET :: CPBLOC
00078 !     BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT
00079       TYPE(BIEF_OBJ), TARGET :: URBLOC
00080 !     BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT IN 3D
00081       TYPE(BIEF_OBJ), TARGET :: URBLOC3D
00082 !     BLOCK OF VARIABLES FOR OPTIONAL 2D TO 3D OUTPUT
00083       TYPE(BIEF_OBJ), TARGET :: URBLOC2DHYD
00084 !
00085 !-----------------------------------------------------------------------
00086 !
00087 !      8)  FILES
00088 !
00089 !-----------------------------------------------------------------------
00090 !
00091       TYPE(BIEF_FILE) :: CP_FILES(4)   ! FILES FOR OPTIONAL OUTPUT
00092 
00093       CHARACTER*32 UR3D_FILES_LABELS(NUMVARUR3D2RES)
00094       LOGICAL      UR3D_FILES_OUTVAR(NUMVARUR3D2RES)
00095 
00096       CHARACTER*32 UR2DHYD_FILES_LABELS(NUMVAR2DHYD)
00097       LOGICAL      UR2DHYD_FILES_OUTVAR(NUMVAR2DHYD)
00098 !
00099 !-----------------------------------------------------------------------
00100 !
00101 !       9) MESH STRUCTURE
00102 !
00103 !-----------------------------------------------------------------------
00104 !
00105 !     MESH FOR 3D USEROUTPUT
00106       TYPE(BIEF_MESH) :: USRMSH
00107       TYPE(BIEF_MESH) :: USRMSH_2DHYD
00108       INTEGER USRMSH_NPLAN               ! NUMBER OF PLANES IN T3D_UR
00109       INTEGER USRMSH_2DHYD_NPLAN         ! NUMBER OF PLANES FOR 2DHYD TO 3D FILE
00110 
00111       SAVE
00112 !
00113 !-----------------------------------------------------------------------
00114 !
00115       END MODULE CVSP_OUTPUTFILES

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