source: LMDZ5/trunk/libf/phymar/Mod_SISVAT_SIc.f90 @ 3847

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 867 bytes
RevLine 
[2089]1     module Mod_SISVAT_SIc
2
3!--------------------------------------------------------------------------+
4!    module Mod_SISVAT_SIc                            Fri  2-Feb-2013  MAR |
5!    module Mod_SISVAT_SIc  contains specific variables (and constants)    |
6!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
7!                                                                          |
8!--------------------------------------------------------------------------+
9
10
11
12! General Variables
13! =================
14
15      use Mod_Real
16      use Mod_SISVAT_dim
17
18
19      IMPLICIT NONE
20
21
22! SISVAT_SIc    specific variables (and constants)
23! ================================================
24
25      logical           ::  SIcINI = .false.
26
27      real(kind=real8), SAVE  ::  Crodzw
28      real(kind=real8), SAVE  ::  Lro__I
29
30
31
32     end module Mod_SISVAT_SIc
Note: See TracBrowser for help on using the repository browser.