The TELEMAC-MASCARET system  trunk
qgl_gaia.f
Go to the documentation of this file.
1 ! **********************************
2  DOUBLE PRECISION FUNCTION qgl_gaia
3 ! **********************************
4 !
5  &(i,at)
6 !
7 !***********************************************************************
8 ! GAIA
9 !***********************************************************************
10 !
12 !
13 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
17 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
18 !
19  USE bief
22 !
23 !
24  IMPLICIT NONE
25 !
26 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
27 !
28  INTEGER, INTENT(IN) :: I
29  DOUBLE PRECISION, INTENT(IN):: AT
30 !
31 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
32 !
33  CHARACTER(LEN=9) FCT
34 !
35 !-----------------------------------------------------------------------
36 !
37 ! IF THE LIQUID BOUNDARY FILE EXISTS, ATTEMPTS TO FIND
38 ! THE VALUE IN IT. IF YES, OK REMAINS TO .TRUE. FOR NEXT CALLS
39 ! IF NO, OK IS SET TO .FALSE.
40 !
41  IF(okqgl(i).AND.gai_files(gailiq)%NAME(1:1).NE.' ') THEN
42 !
43 ! FCT WILL BE QGL_GAIA(1), QGL_GAIA(2), ETC, QGL_GAIA(9), DEPENDING ON I
44  fct='QG( '
45  IF(i.LT.10) THEN
46  WRITE(fct(4:4),fmt='(I1)') i
47  fct(5:5)=')'
48  ELSEIF(i.LT.100) THEN
49  WRITE(fct(4:5),fmt='(I2)') i
50  fct(6:6)=')'
51  ELSE
52  WRITE(lu,*)'I=',i
53  WRITE(lu,*) 'QGL_GAIA NOT PROGRAMMED FOR MORE THAN 99
54  & BOUNDARIES'
55  CALL plante(1)
56  stop
57  ENDIF
58 !
60  & entet,okqgl(i))
61 !
62  ENDIF
63 !
64  IF(.NOT.okqgl(i).OR.gai_files(gailiq)%NAME(1:1).EQ.' ') THEN
65 ! PROGRAMMABLE PART
66 ! SL IS READ FROM THE STEERING FILE, BUT MAY BE CHANGED
67  WRITE(lu,101) i
68 101 FORMAT(1x,/,1x,'QG: MORE PRESCRIBED SOLID DISCHARGES '
69  & ,/,1x,' ARE REQUIRED IN THE PARAMETER FILE'
70  & ,/,1x,' AT LEAST ',1i6,' MUST BE GIVEN')
71  CALL plante(1)
72  stop
73  ENDIF
74 !
75 !
76 !-----------------------------------------------------------------------
77 !
78  RETURN
79  END
logical entet
Writes out (or not)
double precision, dimension(:), pointer x
2d coordinates of the mesh
type(bief_file), dimension(maxlu_gai), target gai_files
For storing information on files.
logical, dimension(:), allocatable okqgl
Used in function qgl_gaia!
double precision function qgl_gaia(I, AT)
Definition: qgl_gaia.f:7
subroutine read_fic_conc_gaia(CGL_GAIA, WHAT, AT, NFIC, LISTIN, FOUND)
Definition: bief.f:3