The TELEMAC-MASCARET system  trunk
cvsp_outputfiles.f
Go to the documentation of this file.
1 ! ***********************
2  MODULE cvsp_outputfiles
3 ! ***********************
4 !
5 !***********************************************************************
6 ! SISYPHE V7P2 16/05/2017
7 !***********************************************************************
8 !
9 !brief
10 !
11 !history UWE MERKEL, P.A.TASSI (EDF R&D, LNHE)
12 !+ 31/08/2013
13 !+ V6P3
14 !
15 !history UWE MERKEL, R. KOPMANN (BAW)
16 !+ V6P3 / V7P2
17 !+ 12/03/2016 / 2017
18 !
19 ! NOTE: THIS MODULE IS ORGANISED IN 10 PARTS
20 !
21 ! 01) VECTORS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
22 ! 02) MATRICES (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
23 ! 03) BLOCKS (WILL BE DECLARED AS BIEF_OBJ STRUCTURES)
24 ! 04) INTEGERS
25 ! 05) LOGICAL VALUES
26 ! 06) REALS
27 ! 07) STRINGS
28 ! 08) SLVCFG STRUCTURES
29 ! 09) MESH STRUCTURE
30 ! 10) ALIASES
31 !
32 !
33 ! ALL BIEF_OBJ AND BIEF_MESH STRUCTURES ARE ALLOCATED
34 ! IN SUBROUTINE POINT_TELEMAC2D
35 
36 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
37 !|OUTPUTCOUNTER |<--|
38 !|NUMCP |<--| NUMBER OF CHECK POINTS
39 !|NUMVARCP2RES |<--| NUMBER OF CHECK POINT VARIABLES TO BE WRITTEN TO FILE T2D_CP
40 !|NUMVARUR2RES |<--| NUMBER OF USER VARIABLES TO BE WRITTEN TO FILE T2D_UR
41 !|NUMVARUR3D2RES |<--| NUMBER OF USER VARIABLES TO BE WRITTEN TO FILE T2D_UR3D (3+NSICLA)
42 !|NUMVAR2DHYD |<--| 2D-HYDRAULIC TO 3D FILE Z,U,V,W,SCALARU,TAU
43 !|NEXTCP |<--| NEXT CP SLOT TO WRITE INTO
44 !|CP_ONCNT |<--| DEBUG NUMBER OF THE DEACTIVATED CHECK POINT VARIABLE
45 !|USERTIME |<--|
46 !|USERPRINTCOUNT |<--|
47 !|CP |<--| LOGICAL FOR DEBUG PRINTOUTS
48 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
49 !
50  USE bief_def
51  USE declarations_sisyphe, ONLY: nsiclm
52 
53  IMPLICIT NONE
54 
55  INTEGER :: outputcounter = 0
56  INTEGER, PARAMETER :: numcp = 30
57  INTEGER, PARAMETER :: numvarcp2res = 3
58  INTEGER, PARAMETER :: numvarur2res = 3
59  INTEGER, PARAMETER :: numvarur3d2res = 13
60  INTEGER, PARAMETER :: numvar2dhyd = 6
61  INTEGER nextcp
62  INTEGER cp_oncnt
63 
64  DOUBLE PRECISION usertime
65  DOUBLE PRECISION userprintcount
66 
67  LOGICAL :: cp = .false.
68 
69 !
70 !-----------------------------------------------------------------------
71 !
72 ! 1) VECTORS
73 !
74 !-----------------------------------------------------------------------
75 !
76  TYPE(bief_obj), TARGET :: vsp_fra(nsiclm)
77  TYPE(bief_obj), TARGET :: vsp_d, vsp_d50, vsp_error
78  TYPE(bief_obj), TARGET :: ur2dhyd(numvar2dhyd)
79 !
80 !-----------------------------------------------------------------------
81 !
82 ! 3) BLOCKS
83 !
84 !-----------------------------------------------------------------------
85 !
86 ! BLOCK OF VARIABLES FOR OPTIONAL CHECKPOINT OUTPUT
87  TYPE(bief_obj), TARGET :: cpbloc
88 ! BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT
89  TYPE(bief_obj), TARGET :: urbloc
90 ! BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT IN 3D
91  TYPE(bief_obj), TARGET :: urbloc3d
92 ! BLOCK OF VARIABLES FOR OPTIONAL 2D TO 3D OUTPUT
93  TYPE(bief_obj), TARGET :: urbloc2dhyd
94 !
95 !-----------------------------------------------------------------------
96 !
97 ! 8) FILES
98 !
99 !-----------------------------------------------------------------------
100 !
101  TYPE(bief_file) :: cp_files(3) ! FILES FOR OPTIONAL OUTPUT
103  CHARACTER(LEN=32) ur3d_files_labels(numvarur3d2res)
106  CHARACTER(LEN=32) ur2dhyd_files_labels(numvar2dhyd)
108 !
109 !-----------------------------------------------------------------------
110 !
111 ! 9) MESH STRUCTURE
112 !
113 !-----------------------------------------------------------------------
114 !
115 ! MESH FOR 3D USEROUTPUT
116  TYPE(bief_mesh) :: usrmsh
118  INTEGER usrmsh_nplan ! NUMBER OF PLANES IN T3D_UR
119  INTEGER usrmsh_2dhyd_nplan ! NUMBER OF PLANES FOR 2DHYD TO 3D FILE
120 !
121  SAVE
122 !-----------------------------------------------------------------------
123 !
124 
125  END MODULE cvsp_outputfiles
type(bief_obj), target urbloc
type(bief_mesh) usrmsh_2dhyd
type(bief_obj), dimension(nsiclm), target vsp_fra
double precision usertime
type(bief_obj), dimension(numvar2dhyd), target ur2dhyd
type(bief_obj), target vsp_d50
integer, parameter numvarcp2res
character(len=32), dimension(numvar2dhyd) ur2dhyd_files_labels
type(bief_obj), target vsp_error
integer, parameter nsiclm
logical, dimension(numvar2dhyd) ur2dhyd_files_outvar
type(bief_obj), target urbloc3d
type(bief_mesh) usrmsh
integer, parameter numvarur3d2res
type(bief_obj), target vsp_d
integer, parameter numvar2dhyd
double precision userprintcount
type(bief_file), dimension(3) cp_files
character(len=32), dimension(numvarur3d2res) ur3d_files_labels
integer, parameter numcp
type(bief_obj), target cpbloc
logical, dimension(numvarur3d2res) ur3d_files_outvar
type(bief_obj), target urbloc2dhyd
integer, parameter numvarur2res