1 | !> \file deform_declar_mod-0.3.f90 |
---|
2 | !! Module pour la declaration des variables intervenant dans la deformation |
---|
3 | !< |
---|
4 | |
---|
5 | !> \namespace deform_declar |
---|
6 | !! Module pour la declaration des variables intervenant dans la deformation |
---|
7 | !! \author CatRitz |
---|
8 | !! \date 25 Novembre 1999 |
---|
9 | !! @note Used modules |
---|
10 | !! @note - use module3d_phy |
---|
11 | !< |
---|
12 | MODULE DEFORM_DECLAR |
---|
13 | |
---|
14 | USE module3D_phy |
---|
15 | |
---|
16 | implicit none |
---|
17 | !> |
---|
18 | !! @note la valeur de n1poly et de n2poly determine le nombre d'exposants |
---|
19 | !! de la loi de deformation differents utilises |
---|
20 | !< |
---|
21 | |
---|
22 | INTEGER, PARAMETER :: n1poly=1,n2poly=2 |
---|
23 | |
---|
24 | REAL, dimension(NX,NY,NZ) :: TETA !< TETA = T - TPMP |
---|
25 | REAL, dimension(NX,NY,NZ-1) :: TI2 !< calcule dans flow_general |
---|
26 | |
---|
27 | REAL, dimension(:), allocatable :: TTRANS !< temperature de transition entre les |
---|
28 | !< deux lois en deg Celsius |
---|
29 | |
---|
30 | REAL, dimension(NX,NY,NZ) :: visc !< Viscosité de la glace (pour les shelves) |
---|
31 | REAL, dimension(:),allocatable :: GLEN !< tableau contenant les exposants des lois |
---|
32 | !< de deformation utilisees |
---|
33 | |
---|
34 | REAL, dimension(:), allocatable :: Q1 !< tableau contenant les energies d'activation |
---|
35 | !< pour les differentes lois de deformation (temp < TTRANS) |
---|
36 | REAL, dimension(:), allocatable :: Q2 !< tableau contenant les energies d'activation |
---|
37 | !< pour les differentes lois de deformation (temp > TTRANS) |
---|
38 | |
---|
39 | REAL, dimension(:), allocatable :: BAT1 !< tableau contenant les fluidite Newtonienne |
---|
40 | !< pour les differentes lois de deformation (temp < TTRANS) |
---|
41 | REAL, dimension(:), allocatable :: BAT2 !< tableau contenant les fluidite Newtonienne |
---|
42 | !< pour les differentes lois de deformation (temp > TTRANS) |
---|
43 | |
---|
44 | REAL, dimension(:), allocatable :: SF !< softening factor for flow law |
---|
45 | |
---|
46 | END MODULE DEFORM_DECLAR |
---|