source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/Mod_SISVATLBSn.f90 @ 5409

Last change on this file since 5409 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 3.8 KB
Line 
1      module Mod_SISVATLBSn
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLBSn contains local variables of SISVAT_BSn         |
6!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
9!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13
14! Global  Variables
15! =================
16
17      use Mod_Real
18
19
20
21! Internal Variables
22! ==================
23
24      IMPLICIT NONE
25
26
27
28      integer, SAVE         , ALLOCATABLE, dimension(:,:)    ::  Mobile                        !
29
30      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  SaltSI                        ! Snow Drift Index
31      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  sdrift                        !
32      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  xdrift                        !
33      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  zdrift                        !
34      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  tdepos                        !
35      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  zdepos                        !
36      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dbsaux                        ! Drift Amount   (Dummy Variable)
37      integer, SAVE         , ALLOCATABLE, dimension(:,:)    ::  isagr1                        ! 1st     Layer History
38      integer, SAVE         , ALLOCATABLE, dimension(:,:)    ::  isagr2                        ! 2nd     Layer History
39
40      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  WEagre                        ! Snow Water Equivalent Thickness
41      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Agrege                        ! 1. when Agregation constrained
42      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dzagr1                        ! 1st     Layer Thickness
43      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dzagr2                        ! 2nd     Layer Thickness
44      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  T_agr1                        ! 1st     Layer Temperature
45      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  T_agr2                        ! 2nd     Layer Temperature
46      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  roagr1                        ! 1st     Layer Density
47      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  roagr2                        ! 2nd     Layer Density
48      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etagr1                        ! 1st     Layer Water Content
49      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etagr2                        ! 2nd     Layer Water Content
50      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G1agr1                        ! 1st     Layer Dendricity/Spher.
51      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G1agr2                        ! 2nd     Layer Dendricity/Spher.
52      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G2agr1                        ! 1st     Layer Sphericity/Size
53      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G2agr2                        ! 2nd     Layer Sphericity/Size
54      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  agagr1                        ! 1st     Layer Age
55      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  agagr2                        ! 2nd     Layer Age
56
57
58
59      end module Mod_SISVATLBSn
Note: See TracBrowser for help on using the repository browser.