SICOPOLIS V5-dev  Revision 1173
sico_vars_m.F90
Go to the documentation of this file.
1 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 !
3 ! Module : s i c o _ v a r s _ m
4 !
5 !> @file
6 !!
7 !! Declarations of global variables for SICOPOLIS (for the EMTP2SGE domain).
8 !!
9 !! @section Copyright
10 !!
11 !! Copyright 2009-2017 Ralf Greve
12 !!
13 !! @section License
14 !!
15 !! This file is part of SICOPOLIS.
16 !!
17 !! SICOPOLIS is free software: you can redistribute it and/or modify
18 !! it under the terms of the GNU General Public License as published by
19 !! the Free Software Foundation, either version 3 of the License, or
20 !! (at your option) any later version.
21 !!
22 !! SICOPOLIS is distributed in the hope that it will be useful,
23 !! but WITHOUT ANY WARRANTY; without even the implied warranty of
24 !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 !! GNU General Public License for more details.
26 !!
27 !! You should have received a copy of the GNU General Public License
28 !! along with SICOPOLIS. If not, see <http://www.gnu.org/licenses/>.
29 !<
30 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31 
32 !-------------------------------------------------------------------------------
33 !> Declarations of global variables for SICOPOLIS (for the EMTP2SGE domain).
34 !<------------------------------------------------------------------------------
35 module sico_vars_m
36 
37 use sico_types_m
38 
39 implicit none
40 save
41 
42 #if (!defined(SURFACE_FORCING) || SURFACE_FORCING==1)
43 !> temp_min: Minimum surface temperature
44  real(dp) :: temp_min
45 !> s_t: Gradient of surface temperature change with horizontal distance
46  real(dp) :: s_t
47 !> x_hat: Coordinate xi (= x) of the centre of the model domain
48  real(dp) :: x_hat
49 !> y_hat: Coordinate eta (= y) of the centre of the model domain
50  real(dp) :: y_hat
51 !> b_max: Maximum accumulation rate
52  real(dp) :: b_max
53 !> s_b: Gradient of accumulation rate change with horizontal distance
54  real(dp) :: s_b
55 !> eld: Equilibrium line distance
56  real(dp) :: eld
57 #elif (SURFACE_FORCING==2)
58 !> temp_0: Surface temperature at z=0
59  real(dp) :: temp_0
60 !> gamma_t: Lapse rate of the surface temperature
61  real(dp) :: gamma_t
62 !> s_0: Maximum accumulation rate
63  real(dp) :: s_0
64 !> m_0: Melting gradient (change of accumulation rate with elevation)
65  real(dp) :: m_0
66 !> ela: Equilibrium line altitude
67  real(dp) :: ela
68 #endif
69 
70 end module sico_vars_m
71 !
real(dp) s_b
s_b: Gradient of accumulation rate change with horizontal distance
Definition: sico_vars_m.F90:54
real(dp) b_max
b_max: Maximum accumulation rate
Definition: sico_vars_m.F90:52
Declarations of global variables for SICOPOLIS (for the ANT domain).
Definition: sico_vars_m.F90:35
Declarations of kind types for SICOPOLIS.
real(dp) eld
eld: Equilibrium line distance
Definition: sico_vars_m.F90:56
real(dp) s_t
s_t: Gradient of surface temperature change with horizontal distance
Definition: sico_vars_m.F90:46
real(dp) temp_min
temp_min: Minimum surface temperature
Definition: sico_vars_m.F90:44
real(dp) y_hat
y_hat: Coordinate eta (= y) of the centre of the model domain
Definition: sico_vars_m.F90:50
real(dp) x_hat
x_hat: Coordinate xi (= x) of the centre of the model domain
Definition: sico_vars_m.F90:48