The TELEMAC-MASCARET system  trunk
user_condih_particular.f
Go to the documentation of this file.
1 ! *********************************
2  SUBROUTINE user_condih_particular
3 ! *********************************
4 !
5 !
6 !***********************************************************************
7 ! ARTEMIS
8 !***********************************************************************
9 !
10 !brief USER INITIALISES THE WATER DEPTH.
11 !
12 !history J-M HERVOUET (LNH)
13 !+
14 !+
15 !
16 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
17 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
18 !
19  USE bief
22 !
24  IMPLICIT NONE
25 !
26 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
27 !
28 !
29 !-----------------------------------------------------------------------
30 !
31  WRITE(lu,11)
32 11 FORMAT(1x,'CONDIH : WITH SPECIAL INITIAL CONDITIONS'
33  & ,/,' YOU HAVE TO MODIFY USER_CONDIH_PARTICULAR')
34  CALL plante(1)
35  stop
36 !
37 !-----------------------------------------------------------------------
38 !
39  RETURN
40  END SUBROUTINE
subroutine user_condih_particular
double precision, dimension(:), pointer x
Definition: bief.f:3