SICOPOLIS V5-dev  Revision 1348
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 MOCHO domain).
8 !!
9 !! @section Copyright
10 !!
11 !! Copyright 2009-2018 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 MOCHO domain).
34 !<------------------------------------------------------------------------------
35 module sico_vars_m
36 
37 use sico_types_m
38 
39 implicit none
40 save
41 
42 #if (SURFACE_FORCING==2)
43 !> temp_0: Surface temperature at z=0
44  real(dp) :: temp_0
45 !> gamma_t: Lapse rate of the surface temperature
46  real(dp) :: gamma_t
47 !> s_0: Maximum accumulation rate
48  real(dp) :: s_0
49 !> m_0: Melting gradient (change of accumulation rate with elevation)
50  real(dp) :: m_0
51 !> ela: Equilibrium line altitude
52  real(dp) :: ela
53 #elif (SURFACE_FORCING==3)
54 !> temp_0: Surface temperature at z=0
55  real(dp) :: temp_0
56 !> gamma_t: Lapse rate of the surface temperature
57  real(dp) :: gamma_t
58 !> s_0: Maximum accumulation rate
59  real(dp) :: s_0
60 !> m_0: Melting gradient (change of accumulation rate with elevation)
61  real(dp) :: m_0
62 !> ela: Equilibrium line altitude
63  real(dp) :: ela
64 !> ela_amp: Amplitude for aspect-dependent ELA variation
65  real(dp) :: ela_amp
66 !> phi_0: Offset angle for aspect-dependent ELA variation
67  real(dp) :: phi_0
68 !> x_gip: x-coord of summit for aspect-dependent ELA variation
69  real(dp) :: x_gip
70 !> y_gip: y-coord of summit for aspect-dependent ELA variation
71  real(dp) :: y_gip
72 #elif (SURFACE_FORCING==4)
73 !> temp_0: Surface temperature at z=0
74  real(dp) :: temp_0
75 !> gamma_t: Lapse rate of the surface temperature
76  real(dp) :: gamma_t
77 !> m_0: Melting gradient (change of accumulation rate with elevation)
78  real(dp) :: m_0
79 !> ela: Equilibrium line altitude
80  real(dp) :: ela
81 !> ela_amp: Amplitude for aspect-dependent ELA variation
82  real(dp) :: ela_amp
83 !> phi_0: Offset angle for aspect-dependent ELA variation
84  real(dp) :: phi_0
85 !> x_gip: x-coord of summit for aspect-dependent ELA variation
86  real(dp) :: x_gip
87 !> y_gip: y-coord of summit for aspect-dependent ELA variation
88  real(dp) :: y_gip
89 !> m_1: Melting gradient (change of accumulation rate with elevation) above elevation z_gc
90  real(dp) :: m_1
91 !> z_gc: Gradient change elevation (above, m_1 rather than m_0 is used)
92  real(dp) :: z_gc
93 #elif (SURFACE_FORCING==5)
94 !> temp_0: Surface temperature at z=0
95  real(dp) :: temp_0
96 !> gamma_t: Lapse rate of the surface temperature
97  real(dp) :: gamma_t
98 !> m_0: Melting gradient (change of accumulation rate with elevation)
99  real(dp) :: m_0
100 !> ela: Equilibrium line altitude
101  real(dp) :: ela
102 !> ela_amp: Amplitude for aspect-dependent ELA variation
103  real(dp) :: ela_amp
104 !> phi_0: Offset angle for aspect-dependent ELA variation
105  real(dp) :: phi_0
106 !> m_1: Melting gradient (change of accumulation rate with elevation) above elevation z_gc
107  real(dp) :: m_1
108 !> z_gc: Gradient change elevation (above, m_1 rather than m_0 is used)
109  real(dp) :: z_gc
110 #elif (SURFACE_FORCING==6)
111 !> temp_0: Surface temperature at z=0
112  real(dp) :: temp_0
113 !> gamma_t: Lapse rate of the surface temperature
114  real(dp) :: gamma_t
115 !> s_0: Maximum accumulation rate
116  real(dp) :: s_0
117 !> m_0: Melting gradient (change of accumulation rate with elevation)
118  real(dp) :: m_0
119 !> ela: Equilibrium line altitude
120  real(dp) :: ela
121 !> ela_amp: Amplitude for aspect-dependent ELA variation
122  real(dp) :: ela_amp
123 !> phi_0: Offset angle for aspect-dependent ELA variation
124  real(dp) :: phi_0
125 !> tgt: Topographic gradient threshold for higher ELA
126  real(dp) :: tgt
127 #elif (SURFACE_FORCING==7)
128 !> temp_0: Surface temperature at z=0
129  real(dp) :: temp_0
130 !> gamma_t: Lapse rate of the surface temperature
131  real(dp) :: gamma_t
132 !> s_0: Maximum accumulation rate
133  real(dp) :: s_0
134 !> m_0: Melting gradient (change of accumulation rate with elevation)
135  real(dp) :: m_0
136 !> ela: Equilibrium line altitude
137  real(dp) :: ela
138 !> ela_amp: Amplitude for aspect-dependent ELA variation
139  real(dp) :: ela_amp
140 !> phi_0: Offset angle for aspect-dependent ELA variation
141  real(dp) :: phi_0
142 #elif (SURFACE_FORCING==8)
143 !> temp_0: Surface temperature at z=0
144  real(dp) :: temp_0
145 !> gamma_t: Lapse rate of the surface temperature
146  real(dp) :: gamma_t
147 !> s_0: Maximum accumulation rate
148  real(dp) :: s_0
149 !> m_0: Melting gradient (change of accumulation rate with elevation)
150  real(dp) :: m_0
151 !> ela: Equilibrium line altitude
152  real(dp) :: ela
153 !> ela_amp: Amplitude for aspect-dependent ELA variation
154  real(dp) :: ela_amp
155 !> phi_0: Offset angle for aspect-dependent ELA variation
156  real(dp) :: phi_0
157 !> x_gip: x-coord of summit for aspect-dependent ELA variation
158  real(dp) :: x_gip
159 !> y_gip: y-coord of summit for aspect-dependent ELA variation
160  real(dp) :: y_gip
161 !> x_gip: x-coord of summit for aspect-dependent ELA variation (Choshuenco)
162  real(dp) :: x_gip2
163 !> y_gip: y-coord of summit for aspect-dependent ELA variation (Choshuenco)
164  real(dp) :: y_gip2
165 !> ela_amp: Amplitude for aspect-dependent ELA variation (Choshuenco)
166  real(dp) :: ela_amp2
167 #endif
168 
169 end module sico_vars_m
170 !
Declarations of global variables for SICOPOLIS (for the ANT domain).
Definition: sico_vars_m.F90:35
Declarations of kind types for SICOPOLIS.