SICOPOLIS V3.3
Main Page
Modules
Data Types List
Files
File List
File Members
subroutines
grl
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 GRL 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 GRL domain).
34
!<------------------------------------------------------------------------------
35
module
sico_vars_m
36
37
use
sico_types_m
38
39
implicit none
40
save
41
42
#if (defined(INITMIP_SMB_ANOM_FILE))
43
!> as_anom_initmip(j,i): InitMIP anomaly of the accumulation-ablation function
44
!> at the ice surface (surface mass balance)
45
real(dp)
,
dimension(0:JMAX,0:IMAX)
:: as_anom_initmip
46
#endif
47
48
#if (ICE_STREAM==2) /* with ice streams */
49
!> maske_sedi(j,i): Sediment mask.
50
!> 1: hard rock,
51
!> 7: soft sediment,
52
!> 2: ocean.
53
integer(i2b)
,
dimension(0:JMAX,0:IMAX)
::
maske_sedi
54
#endif
55
56
#if (DISC==2)
57
!> glann_time_min: Minimum time of the data values for the
58
!> global annual temperature anomaly
59
integer(i4b)
:: glann_time_min
60
!> glann_time_stp: Time step of the data values for the
61
!> global annual temperature anomaly
62
integer(i4b)
:: glann_time_stp
63
!> glann_time_max: Maximum time of the data values for the
64
!> global annual temperature anomaly
65
integer(i4b)
:: glann_time_max
66
!> ndata_glann: Number of data values for the global annual temperature anomaly
67
integer(i4b)
:: ndata_glann
68
!> dT_glann_CLIMBER(n): Data values for the global annual temperature anomaly
69
real(dp)
,
dimension(:)
,
allocatable
:: dt_glann_climber
70
#endif
71
72
end module
sico_vars_m
73
!
sico_vars_m::maske_sedi
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
sico_vars_m
Declarations of global variables for SICOPOLIS (for the ANT domain).
Definition:
sico_vars_m.F90:35
sico_types_m
Declarations of kind types for SICOPOLIS.
Definition:
sico_types_m.F90:35
Generated on Thu Aug 3 2017 21:26:00 for SICOPOLIS V3.3 by
1.8.11