The TELEMAC-MASCARET system  trunk
gaia_suspension_deposit.f
Go to the documentation of this file.
1 ! **********************************
2  SUBROUTINE gaia_suspension_deposit
3 ! **********************************
4  &(code)
5 !
6 !***********************************************************************
7 ! GAIA
8 !***********************************************************************
9 !
11 !
12 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
14 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
15 !
16  USE interface_gaia, ex_gaia_suspension_deposit =>
18  USE bief
23 !
24  IMPLICIT NONE
25 !
26 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
27 !
28  CHARACTER(LEN=24), INTENT(IN) :: CODE
29 !
30 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
31 !
32  IF(debug.GT.0) WRITE(lu,*) 'GAIA PART 1, COMPUTE_SUSP TRUE'
33 !
34 ! HERE WE COME BACK AFTER SOLUTION OF ADVECTION DIFFUSION EQ
35 !
36  IF(bed_model.EQ.1.OR.bed_model.EQ.2)THEN
37  IF(debug.GT.0) WRITE(lu,*) 'BED1_SUSPENSION_DEPOSIT'
38  CALL bed1_suspension_deposit(code)
39  IF(debug.GT.0) WRITE(lu,*) 'END BED1_SUSPENSION_DEPOSIT'
40  ENDIF
41 !
42 !-----------------------------------------------------------------------
43 !
44  RETURN
45  END
46 
integer bed_model
Bed model (3 choices, cf. dico)
integer debug
Debugger.
subroutine gaia_suspension_deposit(CODE)
subroutine bed1_suspension_deposit(CODE)
Definition: bief.f:3