source: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_ctr.f90 @ 2435

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

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

File size: 1.7 KB
Line 
1     module Mod_SISVAT_ctr
2
3!--------------------------------------------------------------------------+
4!    module Mod_SISVAT_ctr                            Wed 15-May-2013  MAR |
5!    module Mod_SISVAT_ctr  contains specific constants and variables for  |
6!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Sat 23-Feb-2013      |
9!                    modified by H. Gallee,           Wed 15-May-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13
14
15! General Variables
16! =================
17
18      use Mod_Real
19
20
21      IMPLICIT NONE
22
23
24! Col de Porte specific Constants
25! ===============================
26
27      logical             ::  InpSBC               ! INPUT of Surface Forcing            Switch
28      logical             ::  InpSWD               ! INPUT is SW downward, not absorbed, (y / n)
29      logical             ::  VegMod               ! Vegetation   Activation             Switch
30      logical             ::  SnoMod               !         Snow Model                  Switch
31      logical             ::  BloMod               ! Blowing Snow Model                  Switch
32      logical             ::  ColPrt               ! Col de Porte                        Switch
33      logical             ::  Garrat               ! Garrat SBL parameterization         Switch
34      logical             ::  SVaKzT               ! Turb.Diffus. of Energy on each col. Switch
35      logical             ::  SVaUBC               ! Von Neuman Vertical Bound.Cond.     Switch
36
37
38      end module Mod_SISVAT_ctr
Note: See TracBrowser for help on using the repository browser.