The TELEMAC-MASCARET system  trunk
gaia_write_results.f
Go to the documentation of this file.
1 ! *****************************
2  SUBROUTINE gaia_write_results
3 ! *****************************
4  &(code,grafcount,grcomp,comp,listcount,yagout,t_tel)
5 !
6 !***********************************************************************
7 ! GAIA V7P3
8 !***********************************************************************
9 !
11 !
12 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
19 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
20 !
21  USE interface_gaia, ex_gaia_write_results => gaia_write_results
22  USE bief
27 !
28  IMPLICIT NONE
29 !
30 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
31 !
32  CHARACTER(LEN=24), INTENT(IN) :: CODE
33  INTEGER, INTENT(IN) :: GRAFCOUNT
34  INTEGER, INTENT(IN) :: LISTCOUNT
35  LOGICAL, INTENT(IN) :: YAGOUT
36  INTEGER, INTENT(IN) :: GRCOMP
37  LOGICAL, INTENT(IN) :: COMP
38  DOUBLE PRECISION, INTENT(IN) :: T_TEL
39 !
40 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
41 !
42 !
43 !-----------------------------------------------------------------------
44 !
45  IF(debug.GT.0) WRITE(lu,*) 'APPEL DE PREDES_GAIA'
46  CALL predes_gaia(lt,t_tel,yagout,code,listcount)
47  IF(debug.GT.0) WRITE(lu,*) 'RETOUR DE PREDES_GAIA'
48  IF(debug.GT.0) WRITE(lu,*) 'APPEL DE BIEF_DESIMP'
49  IF(comp)THEN
51  & npoin,gai_files(gaires)%LU,
52  & t_tel,lt,listcount,grafcount,
54  & ileo=yagout,compgraph=grcomp+1)
55  ELSE
56  IF(grafcount*(lt/grafcount).EQ.lt) THEN
58  & npoin,gai_files(gaires)%LU,
59  & t_tel,lt,listcount,grafcount,
61  & ileo=yagout)
62  ENDIF
63  ENDIF
64  IF(debug.GT.0) WRITE(lu,*) 'RETOUR DE BIEF_DESIMP'
65 !
66 !-----------------------------------------------------------------------
67 !
68  RETURN
69  END
subroutine gaia_write_results(CODE, GRAFCOUNT, GRCOMP, COMP, LISTCOUNT, YAGOUT, T_TEL)
integer, target gaires
Various files ranks, which are also logical units if no coupling.
type(bief_file), dimension(maxlu_gai), target gai_files
For storing information on files.
integer ptinig
First time from which to write the graphical outputs.
logical, dimension(maxvar) sorimp
Listing output.
character(len=32), dimension(maxvar) texte
Name of output variable.
logical, dimension(maxvar) sorleo
Graphical output.
integer, parameter maxvar
Maximum number of output variables.
integer ptinil
First time from which to write the listing outputs.
subroutine predes_gaia(LLT, AAT, YAGOUT, CODE, LISTCOUNT)
Definition: predes_gaia.f:7
integer, target lt
Numero du pas de temps.
integer debug
Debugger.
type(bief_obj), target varsor
Block of variables for output.
subroutine bief_desimp(FORMAT_RES, VARSOR, N, NRES, AT, LT, LISPRD, LEOPRD, SORLEO, SORIMP, MAXVAR, TEXTE, PTINIG, PTINIL, MESH, IIMP, ILEO, COMPGRAPH)
Definition: bief_desimp.f:9
integer, pointer npoin
Number of 2d points in the mesh.
Definition: bief.f:3