The TELEMAC-MASCARET system  trunk
gaia_consolidation.f
Go to the documentation of this file.
1 ! *****************************
2  SUBROUTINE gaia_consolidation
3 ! *****************************
4 !
5 !***********************************************************************
6 ! GAIA
7 !***********************************************************************
8 !
12 !
13 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
14 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
15  USE interface_gaia
16  USE bief
21 !
22  IMPLICIT NONE
23 !
24 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
25 !
26 !
27 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
28 !
29  IF(bed_model.EQ.2) THEN
30 ! BED1_UPDATE is called to update ratio_mud
31  CALL bed1_update(zr,zf,volu2d)
33  ELSEIF(bed_model.EQ.3)THEN
35  WRITE(lu,*)'GIBSON IN GAIA: TO DO'
36  CALL plante(1)
37  stop
38  ENDIF
39 !
40 !-----------------------------------------------------------------------
41 !
42  RETURN
43  END
type(bief_obj), target zr
Non erodable (rigid) bottom elevation.
type(bief_obj), target volu2d
Integral of bases.
integer bed_model
Bed model (3 choices, cf. dico)
subroutine gaia_consolidation
type(bief_obj), target zf
Bottom elevation.
subroutine bed1_consolidation_layer
subroutine bed1_update(ZR, ZF, VOLU2D)
Definition: bed1_update.f:7
Definition: bief.f:3