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 ANT 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 ANT domain).
34 !<------------------------------------------------------------------------------
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 (defined(INITMIP_SMB_ANOM_FILE))
46 !> smb_anom_initmip(j,i): InitMIP anomaly of the accumulation-ablation function
47 !> at the ice surface (surface mass balance)
48  real(dp), dimension(0:JMAX,0:IMAX) :: smb_anom_initmip
49 #endif
50 
51 #if (defined(INITMIP_BMB_ANOM_FILE))
52 !> ab_anom_initmip(j,i): InitMIP anomaly of the basal melting rate
53 !> under floating ice
54  real(dp), dimension(0:JMAX,0:IMAX) :: ab_anom_initmip
55 #endif
56 
57 !> n_sector(j,i): Marker for the different sectors for ice shelf basal melting.
58  integer(i2b), dimension(0:JMAX,0:IMAX) :: n_sector
59 
60 #if (defined(SEDI_SLIDE) \
61  && sedi_slide==2) /* with sediment sliding */
62 !> maske_sedi(j,i): Sediment mask.
63 !> 1: hard rock,
64 !> 7: soft sediment,
65 !> 2: ocean.
66  integer(i2b), dimension(0:JMAX,0:IMAX) :: maske_sedi
67 !> r_mask_sedi(j,i): Continuous sediment mask.
68 !> 0: hard rock,
69 !> 1: soft sediment or ocean,
70 !> between 0 and 1: transition.
71  real(dp), dimension(0:JMAX,0:IMAX) :: r_mask_sedi
72 #endif
73 
74 end module sico_vars_m
75 !
integer(i2b), dimension(0:jmax, 0:imax) n_sector
n_sector(j,i): Marker for the different sectors for ice shelf basal melting.
Definition: sico_vars_m.F90:58
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(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.