SICOPOLIS V5-dev  Revision 1105
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 ASF 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 ASF domain).
34 !<------------------------------------------------------------------------------
35 module sico_vars_m
36 
37 use sico_types_m
38 
39 implicit none
40 save
41 
42 !> n_surf: Number of surface points for which time-series data are written
43  integer(i4b) :: n_surf
44 !> lambda_surf(n): Geographical longitude of the prescribed surface points
45  real(dp), dimension(:), allocatable :: lambda_surf
46 !> phi_surf(n): Geographical latitude of the prescribed surface points
47  real(dp), dimension(:), allocatable :: phi_surf
48 !> x_surf(n): Coordinate xi (= x) of the prescribed surface points
49  real(dp), dimension(:), allocatable :: x_surf
50 !> y_surf(n): Coordinate eta (= y) of the prescribed surface points
51  real(dp), dimension(:), allocatable :: y_surf
52 !> snowfall(j,i): Snowfall rate at the ice surface
53  real(dp), dimension(0:JMAX,0:IMAX) :: snowfall
54 !> rainfall(j,i): Rainfall rate at the ice surface
55  real(dp), dimension(0:JMAX,0:IMAX) :: rainfall
56 
57 #if (ICE_STREAM==2) /* with ice streams */
58 !> maske_sedi(j,i): Sediment mask.
59 !> 1: hard rock,
60 !> 7: soft sediment,
61 !> 2: ocean.
62  integer(i2b), dimension(0:JMAX,0:IMAX) :: maske_sedi
63 #endif
64 
65 end module sico_vars_m
66 !
real(dp), dimension(0:jmax, 0:imax) snowfall
snowfall(j,i): Snowfall rate at the ice surface
Definition: sico_vars_m.F90:53
integer(i2b), dimension(0:jmax, 0:imax) maske_sedi
maske_sedi(j,i): Sediment mask. 1: hard rock, 7: soft sediment, 2: ocean.
Definition: sico_vars_m.F90:46
real(dp), dimension(:), allocatable y_surf
y_surf(n): Coordinate eta (= y) of the prescribed surface points
Definition: sico_vars_m.F90:51
Declarations of global variables for SICOPOLIS (for the ANT domain).
Definition: sico_vars_m.F90:35
Declarations of kind types for SICOPOLIS.
real(dp), dimension(:), allocatable phi_surf
phi_surf(n): Geographical latitude of the prescribed surface points
Definition: sico_vars_m.F90:47
real(dp), dimension(:), allocatable x_surf
x_surf(n): Coordinate xi (= x) of the prescribed surface points
Definition: sico_vars_m.F90:49
real(dp), dimension(0:jmax, 0:imax) rainfall
rainfall(j,i): Rainfall rate at the ice surface
Definition: sico_vars_m.F90:55
integer(i4b) n_surf
n_surf: Number of surface points for which time-series data are written
Definition: sico_vars_m.F90:43
real(dp), dimension(:), allocatable lambda_surf
lambda_surf(n): Geographical longitude of the prescribed surface points
Definition: sico_vars_m.F90:45