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