source:
LMDZ5/branches/IPSLCM6.0.8/libf/phymar/Mod_SISVAT_BDu.f90
@
5040
Last change on this file since 5040 was 2160, checked in by , 10 years ago | |
---|---|
File size: 859 bytes |
Line | |
---|---|
1 | module Mod_SISVAT_BDu |
2 | |
3 | !--------------------------------------------------------------------------+ |
4 | ! module Mod_SISVAT_BDu Fri 2-Feb-2013 MAR | |
5 | ! module Mod_SISVAT_BDu 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_BDu specific variables (and constants) |
24 | ! ================================================ |
25 | |
26 | logical :: logust = .false. |
27 | |
28 | real(kind=real8), SAVE :: etaust(0:nsot) |
29 | |
30 | |
31 | |
32 | end module Mod_SISVAT_BDu |
Note: See TracBrowser
for help on using the repository browser.