source: LMDZ5/trunk/libf/phymar/Mod_SISVATLqSn.f90 @ 5224

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.6 KB
Line 
1      module Mod_SISVATLqSn
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLqSn contains local variables of SISVAT_qSn         |
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! OUTPUT
28! ------
29
30! OUTPUT/Verification: Energy/Water Budget
31! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_d          ! Energy in Excess, initial
32! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_0          ! Snow Energy, befor Phase Change
33! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn01          ! Snow Energy, after Phase Change
34! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn02          ! Snow Energy, after Phase Change
35                                                                       !              .AND. Last Melting
36! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_1          ! Snow Energy, after Phase Change
37                                                                       !              .AND. Mass Redistr.
38! OUTPUT/Verification: * Mass Conservation
39! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIsubl          ! Snow Deposed Mass
40! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SImelt          ! Snow Melted  Mass
41! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIrnof          ! Local Surficial Water + Run OFF
42
43
44      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  noSnow          ! Nb of Layers Updater
45      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EExdum          ! Energy in Excess when no Snow
46      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzMelt          ! Melted    Thickness          [m]
47
48! OUTPUT/Verification: Energy/Water Budget
49! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  WqSn_0          ! Snow Water+Forcing  Initial
50! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  WqSn_1          ! Snow Water+Forcing, Final
51
52
53      end module Mod_SISVATLqSn
Note: See TracBrowser for help on using the repository browser.