The TELEMAC-MASCARET system  trunk
cvsp_outputfiles_gaia.f
Go to the documentation of this file.
1 ! ***********************
3 ! ***********************
4 !
5 !***********************************************************************
6 ! GAIA V8P1 16/05/2017
7 !***********************************************************************
8 !
10 !
14 !
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 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
38 !
39  USE bief_def
40  USE declarations_gaia, ONLY: nsiclm
41 
42  IMPLICIT NONE
43 
44  INTEGER :: outputcounter = 0
46  INTEGER, PARAMETER :: numcp = 30
48  INTEGER, PARAMETER :: numvarcp2res = 3
50  INTEGER, PARAMETER :: numvarur2res = 3
52  INTEGER, PARAMETER :: numvarur3d2res = 13
54  INTEGER, PARAMETER :: numvar2dhyd = 6
56  INTEGER nextcp
58  INTEGER cp_oncnt
59 
60  DOUBLE PRECISION usertime
61  DOUBLE PRECISION userprintcount
62 
64  LOGICAL :: cp = .false.
65 
66 !
67 !-----------------------------------------------------------------------
68 !
69 ! 1) VECTORS
70 !
71 !-----------------------------------------------------------------------
72 !
73  TYPE(bief_obj), TARGET :: vsp_fra(nsiclm)
74  TYPE(bief_obj), TARGET :: vsp_d, vsp_d50, vsp_error
75  TYPE(bief_obj), TARGET :: ur2dhyd(numvar2dhyd)
76 !
77 !-----------------------------------------------------------------------
78 !
79 ! 3) BLOCKS
80 !
81 !-----------------------------------------------------------------------
82 !
83 ! BLOCK OF VARIABLES FOR OPTIONAL CHECKPOINT OUTPUT
84  TYPE(bief_obj), TARGET :: cpbloc
85 ! BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT
86  TYPE(bief_obj), TARGET :: urbloc
87 ! BLOCK OF VARIABLES FOR OPTIONAL USER OUTPUT IN 3D
88  TYPE(bief_obj), TARGET :: urbloc3d
89 ! BLOCK OF VARIABLES FOR OPTIONAL 2D TO 3D OUTPUT
90  TYPE(bief_obj), TARGET :: urbloc2dhyd
91 !
92 !-----------------------------------------------------------------------
93 !
94 ! 8) FILES
95 !
96 !-----------------------------------------------------------------------
97 !
98  TYPE(bief_file) :: cp_files(3) ! FILES FOR OPTIONAL OUTPUT
99 
100  CHARACTER(LEN=32) ur3d_files_labels(numvarur3d2res)
103  CHARACTER(LEN=32) ur2dhyd_files_labels(numvar2dhyd)
105 !
106 !-----------------------------------------------------------------------
107 !
108 ! 9) MESH STRUCTURE
109 !
110 !-----------------------------------------------------------------------
111 !
112 ! MESH FOR 3D USEROUTPUT
113  TYPE(bief_mesh) :: usrmsh
115  INTEGER usrmsh_nplan ! NUMBER OF PLANES IN T3D_UR
116  INTEGER usrmsh_2dhyd_nplan ! NUMBER OF PLANES FOR 2DHYD TO 3D FILE
117 !
118  SAVE
119 !-----------------------------------------------------------------------
120 !
121 
122  END MODULE cvsp_outputfiles_gaia
double precision userprintcount
type(bief_obj), target vsp_d50
type(bief_obj), target cpbloc
character(len=32), dimension(numvar2dhyd) ur2dhyd_files_labels
type(bief_obj), target vsp_error
character(len=32), dimension(numvarur3d2res) ur3d_files_labels
type(bief_obj), target urbloc3d
logical, dimension(numvar2dhyd) ur2dhyd_files_outvar
integer cp_oncnt
Debug number of the deactivated check point variable.
integer, parameter numvarur2res
Number of user variables to be written to file t2d_ur.
type(bief_obj), dimension(numvar2dhyd), target ur2dhyd
integer, parameter numvarcp2res
Number of check point variables to be written to file t2d_cp.
type(bief_obj), target vsp_d
logical cp
Logical for debug printouts.
integer, parameter numcp
Number of check points.
integer nextcp
Next cp slot to write into.
integer, parameter nsiclm
Maximum number of sediment classes.
integer, parameter numvar2dhyd
2d-hydraulic to 3d file z,u,v,w,scalaru,tau
type(bief_obj), target urbloc
integer, parameter numvarur3d2res
Number of user variables to be written to file t2d_ur3d (3+nsicla)
type(bief_obj), dimension(nsiclm), target vsp_fra
type(bief_obj), target urbloc2dhyd
type(bief_file), dimension(3) cp_files
logical, dimension(numvarur3d2res) ur3d_files_outvar