source: LMDZ5/trunk/libf/phymar/Mod_SISVATLTVg.f90 @ 4038

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.7 KB
Line 
1      module Mod_SISVATLTVg
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLTVg contains local variables of SISVAT_TVg         |
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! OUTPUT/Verification: Energy/Water Budget
29! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  ETVg_d          ! VegetationPower, Forcing
30
31      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Tveg_0          ! Canopy Temperature, Previous t
32      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dIRdTv          ! InfraRed  NET(t), Derivative(t)
33      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dHSdTv          ! Sensible Heat FL. Derivative(t)
34      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dHLdTv          ! Latent   Heat FL. Derivative(t)
35      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dEvpdT          ! Evapo(transpi)ration Derivative
36      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dEvTdT          ! Evapo(transpi)ration Derivative
37
38
39      end module Mod_SISVATLTVg
Note: See TracBrowser for help on using the repository browser.