SICOPOLIS V5-dev  Revision 1368
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, Eduardo Flandez, Matthias Scheiter
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 !> smb_corr_in(j,i): Prescribed SMB correction
43  real(dp), dimension(0:JMAX,0:IMAX) :: smb_corr_in
44 
45 #if (SURFACE_FORCING==2)
46 !> temp_0: Surface temperature at z=0
47  real(dp) :: temp_0
48 !> gamma_t: Lapse rate of the surface temperature
49  real(dp) :: gamma_t
50 !> s_0: Maximum accumulation rate
51  real(dp) :: s_0
52 !> m_0: Melting gradient (change of accumulation rate with elevation)
53  real(dp) :: m_0
54 !> ela: Equilibrium line altitude (ELA)
55  real(dp) :: ela
56 !> dela_dts: Change of ELA with surface temperature
57  real(dp) :: dela_dts
58 #elif (SURFACE_FORCING==3)
59 !> temp_0: Surface temperature at z=0
60  real(dp) :: temp_0
61 !> gamma_t: Lapse rate of the surface temperature
62  real(dp) :: gamma_t
63 !> s_0: Maximum accumulation rate
64  real(dp) :: s_0
65 !> m_0: Melting gradient (change of accumulation rate with elevation)
66  real(dp) :: m_0
67 !> ela: Equilibrium line altitude (ELA)
68  real(dp) :: ela
69 !> ela_amp: Amplitude for aspect-dependent ELA variation
70  real(dp) :: ela_amp
71 !> dela_dts: Change of ELA with surface temperature
72  real(dp) :: dela_dts
73 !> phi_0: Offset angle for aspect-dependent ELA variation
74  real(dp) :: phi_0
75 !> x_gip: x-coord of summit for aspect-dependent ELA variation
76  real(dp) :: x_gip
77 !> y_gip: y-coord of summit for aspect-dependent ELA variation
78  real(dp) :: y_gip
79 #elif (SURFACE_FORCING==4)
80 !> temp_0: Surface temperature at z=0
81  real(dp) :: temp_0
82 !> gamma_t: Lapse rate of the surface temperature
83  real(dp) :: gamma_t
84 !> s_0: Maximum accumulation rate
85  real(dp) :: s_0
86 !> m_0: Melting gradient (change of accumulation rate with elevation)
87  real(dp) :: m_0
88 !> ela: Equilibrium line altitude (ELA)
89  real(dp) :: ela
90 !> ela_amp: Amplitude for aspect-dependent ELA variation
91  real(dp) :: ela_amp
92 !> dela_dts: Change of ELA with surface temperature
93  real(dp) :: dela_dts
94 !> phi_0: Offset angle for aspect-dependent ELA variation
95  real(dp) :: phi_0
96 !> x_gip: x-coord of summit for aspect-dependent ELA variation
97  real(dp) :: x_gip
98 !> y_gip: y-coord of summit for aspect-dependent ELA variation
99  real(dp) :: y_gip
100 !> m_1: Melting gradient (change of accumulation rate with elevation) above elevation z_gc
101  real(dp) :: m_1
102 !> z_gc: Gradient change elevation (above, m_1 rather than m_0 is used)
103  real(dp) :: z_gc
104 #elif (SURFACE_FORCING==5)
105 !> temp_0: Surface temperature at z=0
106  real(dp) :: temp_0
107 !> gamma_t: Lapse rate of the surface temperature
108  real(dp) :: gamma_t
109 !> s_0: Maximum accumulation rate
110  real(dp) :: s_0
111 !> m_0: Melting gradient (change of accumulation rate with elevation)
112  real(dp) :: m_0
113 !> ela: Equilibrium line altitude (ELA)
114  real(dp) :: ela
115 !> ela_amp: Amplitude for aspect-dependent ELA variation
116  real(dp) :: ela_amp
117 !> dela_dts: Change of ELA with surface temperature
118  real(dp) :: dela_dts
119 !> phi_0: Offset angle for aspect-dependent ELA variation
120  real(dp) :: phi_0
121 !> m_1: Melting gradient (change of accumulation rate with elevation) above elevation z_gc
122  real(dp) :: m_1
123 !> z_gc: Gradient change elevation (above, m_1 rather than m_0 is used)
124  real(dp) :: z_gc
125 #elif (SURFACE_FORCING==6)
126 !> temp_0: Surface temperature at z=0
127  real(dp) :: temp_0
128 !> gamma_t: Lapse rate of the surface temperature
129  real(dp) :: gamma_t
130 !> s_0: Maximum accumulation rate
131  real(dp) :: s_0
132 !> m_0: Melting gradient (change of accumulation rate with elevation)
133  real(dp) :: m_0
134 !> ela: Equilibrium line altitude (ELA)
135  real(dp) :: ela
136 !> ela_amp: Amplitude for aspect-dependent ELA variation
137  real(dp) :: ela_amp
138 !> dela_dts: Change of ELA with surface temperature
139  real(dp) :: dela_dts
140 !> phi_0: Offset angle for aspect-dependent ELA variation
141  real(dp) :: phi_0
142 !> tgt: Topographic gradient threshold for higher ELA
143  real(dp) :: tgt
144 #elif (SURFACE_FORCING==7)
145 !> temp_0: Surface temperature at z=0
146  real(dp) :: temp_0
147 !> gamma_t: Lapse rate of the surface temperature
148  real(dp) :: gamma_t
149 !> s_0: Maximum accumulation rate
150  real(dp) :: s_0
151 !> m_0: Melting gradient (change of accumulation rate with elevation)
152  real(dp) :: m_0
153 !> ela: Equilibrium line altitude (ELA)
154  real(dp) :: ela
155 !> ela_amp: Amplitude for aspect-dependent ELA variation
156  real(dp) :: ela_amp
157 !> dela_dts: Change of ELA with surface temperature
158  real(dp) :: dela_dts
159 !> phi_0: Offset angle for aspect-dependent ELA variation
160  real(dp) :: phi_0
161 #elif (SURFACE_FORCING==8)
162 !> temp_0: Surface temperature at z=0
163  real(dp) :: temp_0
164 !> gamma_t: Lapse rate of the surface temperature
165  real(dp) :: gamma_t
166 !> s_0: Maximum accumulation rate
167  real(dp) :: s_0
168 !> m_0: Melting gradient (change of accumulation rate with elevation)
169  real(dp) :: m_0
170 !> ela: Equilibrium line altitude (ELA)
171  real(dp) :: ela
172 !> ela_amp: Amplitude for aspect-dependent ELA variation
173  real(dp) :: ela_amp
174 !> dela_dts: Change of ELA with surface temperature
175  real(dp) :: dela_dts
176 !> phi_0: Offset angle for aspect-dependent ELA variation
177  real(dp) :: phi_0
178 !> x_gip: x-coord of summit for aspect-dependent ELA variation
179  real(dp) :: x_gip
180 !> y_gip: y-coord of summit for aspect-dependent ELA variation
181  real(dp) :: y_gip
182 !> x_gip: x-coord of summit for aspect-dependent ELA variation (Choshuenco)
183  real(dp) :: x_gip2
184 !> y_gip: y-coord of summit for aspect-dependent ELA variation (Choshuenco)
185  real(dp) :: y_gip2
186 !> ela_amp: Amplitude for aspect-dependent ELA variation (Choshuenco)
187  real(dp) :: ela_amp2
188 #endif
189 
190 end module sico_vars_m
191 !
real(dp), dimension(0:jmax, 0:imax) smb_corr_in
smb_corr_in(j,i): Prescribed SMB correction
Definition: sico_vars_m.F90:43
Declarations of global variables for SICOPOLIS (for the ANT domain).
Definition: sico_vars_m.F90:35
Declarations of kind types for SICOPOLIS.