The TELEMAC-MASCARET system  trunk
gaia_evolutions.f
Go to the documentation of this file.
1 ! **************************
2  SUBROUTINE gaia_evolutions
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 ! BED EVOLUTION
28  IF(bed_model.EQ.1.OR.bed_model.EQ.2)THEN
29  IF(hirano.AND.vsmtype==0) THEN
30  IF(debug.GT.0) WRITE(lu,*)'BED1_UPDATE'
31  CALL bed1_update(zr,zf,volu2d)
32  IF(debug.GT.0) WRITE(lu,*)'END BED1_UPDATE'
33  IF(debug.GT.0) WRITE(lu,*)'UPDATE_ACTIVELAYER_HIRANO'
35  IF(debug.GT.0) THEN
36  WRITE(lu,*)'END UPDATE_ACTIVELAYER_HIRANO'
37  ENDIF
38  ENDIF
39 !
40  IF(vsmtype==0) THEN
41  IF(debug.GT.0) WRITE(lu,*)'BED1_UPDATE'
42  CALL bed1_update(zr,zf,volu2d)
43  IF(debug.GT.0) WRITE(lu,*)'END BED1_UPDATE'
44  ELSEIF(vsmtype==1) THEN
45  IF(debug.GT.0) WRITE(lu,*)'CVSP_INTERFACE'
46  CALL cvsp_interface
47  IF(debug.GT.0) WRITE(lu,*)'CVSP_INTERFACE'
48  ENDIF !VSMTYPE
49  ENDIF
50 !
51 !-----------------------------------------------------------------------
52 !
53  RETURN
54  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)
logical hirano
Hirano model used.
subroutine cvsp_interface
Definition: cvsp_interface.f:4
integer vsmtype
For the Continous Vertical Sorting MODEL.
integer debug
Debugger.
type(bief_obj), target zf
Bottom elevation.
subroutine bed1_update_activelayer_hirano
subroutine bed1_update(ZR, ZF, VOLU2D)
Definition: bed1_update.f:7
subroutine gaia_evolutions
Definition: bief.f:3