source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/Mod_SISVAT_qSn.f90 @ 3106

Last change on this file since 3106 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_qSn
2
3!--------------------------------------------------------------------------+
4!    module Mod_SISVAT_qSn                            Fri  2-Feb-2013  MAR |
5!    module Mod_SISVAT_qSn  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      use Mod_SISVAT_dat
18
19
20      IMPLICIT NONE
21
22
23! SISVAT_qSn    specific variables (and constants)
24! ================================================
25
26! #e5 logical           ::  emopen = .false.              ! IO   Switch
27
28! #e5 integer, SAVE           ::  no_err =  0                   !
29
30! #e5 real(kind=real8), SAVE  ::  timeer                        !
31
32! OUTPUT/Verification: Slush  Parameterization
33! #vu logical           ::  su_opn = .false.              ! IO   Switch
34
35
36
37
38     end module Mod_SISVAT_qSn
Note: See TracBrowser for help on using the repository browser.