The TELEMAC-MASCARET system  trunk
gaia_slide.f
Go to the documentation of this file.
1 ! *********************
2  SUBROUTINE gaia_slide
3 ! *********************
4 !
5 !***********************************************************************
6 ! GAIA
7 !***********************************************************************
8 !
10 !
11 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
12 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
13  USE interface_gaia
14  USE bief
19 !
20  IMPLICIT NONE
21 !
22 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
23 !
24 !
25 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
26 !
27  IF(entet) CALL entete_gaia(14,at0,lt)
28 !
29  IF(debug.GT.0) WRITE(lu,*) 'APPEL DE MAXSLOPE_GAIA'
30  CALL maxslope_gaia
31  IF(debug.GT.0) WRITE(lu,*) 'RETOUR DE MAXSLOPE_GAIA'
32 !
33 !-----------------------------------------------------------------------
34 !
35  RETURN
36  END
subroutine maxslope_gaia
Definition: maxslope_gaia.f:4
logical entet
Writes out (or not)
subroutine entete_gaia(IETAPE, AT, LT)
Definition: entete_gaia.f:7
subroutine gaia_slide
Definition: gaia_slide.f:4
integer, target lt
Numero du pas de temps.
integer debug
Debugger.
double precision at0
Definition: bief.f:3