The TELEMAC-MASCARET system  trunk
cvsp_add_section_gaia.f
Go to the documentation of this file.
1 ! ********************************
2  SUBROUTINE cvsp_add_section_gaia
3 ! ********************************
4 !
5  &(j)
6 !
7 !***********************************************************************
8 ! GAIA V8P1 14/03/2013
9 !***********************************************************************
10 !
13 !
17 !
22 !
27 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
29 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
30 !
32 !
33  IMPLICIT NONE
34 !
35 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
36 !
37  INTEGER, INTENT(IN) :: J
38 !
39 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
40 !
41  INTEGER I
42 !
43 !-----------------------------------------------------------------------
44 !
45  pro_max(j) = pro_max(j) + 2
46 !
47  DO i=1,nsicla
48  pro_d(j,pro_max(j),i) = pro_d(j,pro_max(j)-2,i)
49  pro_f(j,pro_max(j),i) = 0.d0
50  pro_d(j,pro_max(j)-1,i) = pro_d(j,pro_max(j)-2,i)
51  pro_f(j,pro_max(j)-1,i) = 0.d0
52  ENDDO
53 !
54 !-----------------------------------------------------------------------
55 !
56  RETURN
57  END SUBROUTINE cvsp_add_section_gaia
subroutine cvsp_add_section_gaia(J)
integer, target nsicla
Number of sediment classes of bed material (less than NISCLM)
double precision, dimension(:,:,:), allocatable, target pro_f
Vertical sorting profile: fraction for each layer, class, point.
double precision, dimension(:,:,:), allocatable, target pro_d
Vertical sorting profile: depth for each layer, class, point.
integer, dimension(:), allocatable pro_max
Maximum layer number in a vertical sorting profile for each point.