source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/Mod_SISVATLmmm.f90 @ 3301

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 3.9 KB
Line 
1      module Mod_SISVATLmmm
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLmmm contains local variables of SISVAT main        |
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! Non Local
28! ---------
29
30      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  TBr_sv          ! Brightness Temperature
31      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  IRdwsv          ! DOWNward   IR Flux
32      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  IRupsv          ! UPward     IR Flux
33      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Bdzssv          ! Buffer Snow Layer Thickness
34      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  z_snsv          ! Snow-Ice, current Thickness
35
36! Energy         Budget
37! ~~~~~~~~~~~~~~~~~~~~~
38! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  ETVg_d          ! VegetationPower, Forcing
39! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_0          ! Snow Energy, befor Phase Change
40! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_1          ! Snow Energy, after Phase Change
41! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_d          ! Energy in Excess
42
43! OUTPUT/Verification: H2O    Conservation
44! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Wats_0          ! Soil Water,  before Forcing
45! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Wats_1          ! Soil Water,  after  Forcing
46! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Wats_d          ! Soil Water,         Forcing
47
48! OUTPUT/Verification: * Mass Conservation
49! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIsubl          ! Snow Sublimed/Deposed Mass
50! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SImelt          ! Snow Melted           Mass
51! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIrnof          ! Local Surficial Water + Run OFF
52
53! OUTPUT/Verification: SeaIce Conservation
54! #m2 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIvAcr          ! Sea-Ice      Vertical Acretion
55
56
57! Local
58! -----
59
60      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  IcIndx          ! No   Ice               Mask
61
62      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  FallOK          ! Snow Contribution to the Canopy
63
64! Energy and Mass Budget
65! ~~~~~~~~~~~~~~~~~~~~~~
66! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    Enrsvd        ! Soil+Vegetat  Power  Forcing
67
68                                                                         ! H2O    Conservation
69! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    Watsv0        ! Soil+Vegetat, before Forcing
70! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    Watsvd        ! Soil+Vegetat  Water  Forcing
71
72                                                                         ! * Mass Conservation
73! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    SIWm_0,SIWm_1 ! Snow Initial/Final        Mass
74! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    SIWa_i,SIWa_f ! Snow Initial/Final ATM Forcing
75! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    SIWe_i,SIWe_f ! Snow Initial/Final BLS Forcing
76
77
78      end module Mod_SISVATLmmm
Note: See TracBrowser for help on using the repository browser.