source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/Mod_SISVATLzSn.f90 @ 3106

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 3.3 KB
Line 
1      module Mod_SISVATLzSn
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLzSn contains local variables of SISVAT_zSn         |
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      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  NLay_s          ! Split Snow Layer         Switch
28      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isagr1          ! 1st     Layer History
29      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isagr2          ! 2nd     Layer History
30      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isn1            ! 1st layer to stagger
31
32      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  WEagre          ! Snow Water Equivalent Thickness
33      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzthin          ! Thickness of the thinest layer
34      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Agrege          ! 1. when Agregation constrained
35      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzagr1          ! 1st     Layer Thickness
36      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzagr2          ! 2nd     Layer Thickness
37      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  T_agr1          ! 1st     Layer Temperature
38      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  T_agr2          ! 2nd     Layer Temperature
39      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  roagr1          ! 1st     Layer Density
40      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  roagr2          ! 2nd     Layer Density
41      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  etagr1          ! 1st     Layer Water Content
42      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  etagr2          ! 2nd     Layer Water Content
43      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G1agr1          ! 1st     Layer Dendricity/Spher.
44      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G1agr2          ! 2nd     Layer Dendricity/Spher.
45      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G2agr1          ! 1st     Layer Sphericity/Size
46      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G2agr2          ! 2nd     Layer Sphericity/Size
47      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  agagr1          ! 1st     Layer Age
48      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  agagr2          ! 2nd     Layer Age
49
50! #vz real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dz_ref          ! Snow Reference Discretization
51! #vz real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzwdif          !
52
53
54      end module Mod_SISVATLzSn
Note: See TracBrowser for help on using the repository browser.