The TELEMAC-MASCARET system  trunk
user_suspension_cae_gaia.f
Go to the documentation of this file.
1 ! ***********************************
2  SUBROUTINE user_suspension_cae_gaia
3 ! ***********************************
4 !
5  & (dcla,npoin,xmvs,cstaeq)
6 !
7 !***********************************************************************
8 ! GAIA
9 !***********************************************************************
10 !
12 !
13 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
18 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
19 !
20  USE bief
22  IMPLICIT NONE
23 !
24 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
25 !
26  INTEGER, INTENT(IN) :: NPOIN
27  DOUBLE PRECISION, INTENT(IN) :: DCLA, XMVS
28  TYPE(bief_obj), INTENT(INOUT) :: CSTAEQ
29 !
30 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
31 !
32  INTEGER :: IPOIN
33 !
34 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
35 !
36 !======================================================================!
37 !
38  DO ipoin=1,npoin
39  cstaeq%R(ipoin) = 0.d0
40  ENDDO
41 !
42 ! FOLLOWING LINES NEED TO BE COMMENTED OUT
43 !
44  WRITE(lu,*) 'WITH SUSPENSION TRANSPORT FORMULA FOR ALL SANDS = 0
45  & SUSPENSION_CAE_USER_GAIA HAVE TO BE PROGRAMMED
46  & BY USER'
47  CALL plante(1)
48  stop
49 !
50 !======================================================================!
51 !======================================================================!
52  RETURN
53  END SUBROUTINE user_suspension_cae_gaia
subroutine user_suspension_cae_gaia(DCLA, NPOIN, XMVS, CSTAEQ)
Definition: bief.f:3