source:
LMDZ5/branches/LMDZ6_rc0/libf/phymar/Mod_SISVAT_qSn.f90
Last change on this file was 2160, checked in by , 10 years ago | |
---|---|
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.