source: LMDZ6/trunk/libf/phymar/Mod_SISVATLqSo.f90 @ 3495

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

Inclusion de la physique de MAR

Integration of MAR physics
File size: 2.4 KB
Line 
1      module Mod_SISVATLqSo
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLqSo contains local variables of SISVAT_qSo         |
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: H2O    Conservation
31! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Wats_0        ! Soil Water,  before forcing
32! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Wats_1        ! Soil Water,  after  forcing
33! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Wats_d        ! Soil Water          forcing
34
35
36! #TB real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etBump        ! Bumps Layer Averaged Humidity
37
38      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  SoRnOF        ! Soil     Run    OFF
39      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Dhydtz        ! Dhydif * dt / dz           [m]
40      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_A        ! A Diagonal
41      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_B        ! B Diagonal
42      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_C        ! C Diagonal
43      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Term_D        !   Independant Term
44      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__P        ! P Auxiliary Variable
45      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__Q        ! Q Auxiliary Variable
46      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  etaaux        ! Soil Water Content     [m3/m3]
47
48! OUTPUT/Verification: H2O    Conservation
49! #mw real(kind=real8), SAVE                               ::  hourwr
50! #mw real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Evapor        !
51
52
53      end module Mod_SISVATLqSo
Note: See TracBrowser for help on using the repository browser.