source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/Mod_SISVAT_xWL.f90 @ 3405

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.1 KB
Line 
1     module Mod_SISVAT_xWL
2
3!--------------------------------------------------------------------------+
4!    module Mod_SISVAT_xWL                            Wed 26-Jun-2013  MAR |
5!    module Mod_SISVAT_xWL  contains dQa     Limitor                       |
6!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Fri  1-Feb-2013      |
9!                    modified by H. Gallee,           Wed 26-Jun-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13
14
15! General Variables
16! =================
17
18      use Mod_Real
19
20
21      IMPLICIT NONE
22
23
24! Mod_SISVAT_xWL  dT(a-s) variables
25! =================================
26
27! #WL real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  WL_mem        ! WVLimit Time           Steps
28! #WL real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  WLmmem        ! WVLimit Time Moving Averages
29
30
31
32     end module Mod_SISVAT_xWL
Note: See TracBrowser for help on using the repository browser.