source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/Mod_SISVATLGSn.f90 @ 5160

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

Inclusion de la physique de MAR

Integration of MAR physics
File size: 1.2 KB
Line 
1      module Mod_SISVATLGSn
2
3!--------------------------------------------------------------------------+
4!                                                     Wed 26-Jun-2013  MAR |
5!     module Mod_SISVATLGSn contains local variables of SISVAT_GSn         |
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      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  ro_dry        ! Dry Density            [g/cm3]
29      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  etaSno        ! Liquid Water Content   [g/cm2]
30      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  SnMass        ! Snow   Mass            [kg/m2]
31
32
33      end module Mod_SISVATLGSn
Note: See TracBrowser for help on using the repository browser.