The TELEMAC-MASCARET system  trunk
corstr_gaia.f
Go to the documentation of this file.
1 ! **********************
2  SUBROUTINE corstr_gaia
3 ! **********************
4 !
5 !
6 !***********************************************************************
7 ! GAIA
8 !***********************************************************************
9 !
12 !
13 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
14 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
15 !
16  USE bief
18 !
20  IMPLICIT NONE
21 !
22 !-----------------------------------------------------------------------
23 !
24 !
25 !-----------------------------------------------------------------------
26 !
27  RETURN
28  END SUBROUTINE corstr_gaia
subroutine corstr_gaia
Definition: corstr_gaia.f:4
Definition: bief.f:3