The TELEMAC-MASCARET system  trunk
user_init_compo.f
Go to the documentation of this file.
1 ! **************************
2  SUBROUTINE user_init_compo
3 ! **************************
4 !
5  &(ncouches)
6 !
7 !***********************************************************************
8 ! SISYPHE
9 !***********************************************************************
10 !
11 !brief USER INITIAL FRACTION DISTRIBUTION, STRATIFICATION,
12 !+ VARIATION IN SPACE.
13 !
14 !history MATTHIEU GONZALES DE LINARES
15 !+ 2002
16 !+ V6P0
17 !+
18 !
19 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
20 !| NCOUCHES |-->| NUMBER OF LAYER FOR EACH POINT
21 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
22 !
23  USE bief
26 !
28  IMPLICIT NONE
29 !
30 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
31 !
32  INTEGER, INTENT (INOUT)::NCOUCHES(*)
33 !
34 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
35 !
36 !
37 !-----------------------------------------------------------------------
38 !
39 !
40 !-----------------------------------------------------------------------
41 !
42  RETURN
43  END
subroutine user_init_compo(NCOUCHES)
Definition: bief.f:3