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 NMARS 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 NMARS domain).
34 !<------------------------------------------------------------------------------
35 module sico_vars_m
36 
37 use sico_types_m
38 
39 implicit none
40 save
41 
42 !> insol_time_min: Minimum time of the data values for the insolation etc.
43  integer(i4b) :: insol_time_min
44 !> insol_time_stp: Time step of the data values for the insolation etc.
45  integer(i4b) :: insol_time_stp
46 !> insol_time_max: Maximum time of the data values for the insolation etc.
47  integer(i4b) :: insol_time_max
48 !> insol_ma_90(n): Data values for the mean-annual north- or south-polar
49 !> insolation
50  real(dp), dimension(0:100000) :: insol_ma_90
51 !> obl_data(n): Data values for the obliquity
52  real(dp), dimension(0:100000) :: obl_data
53 !> ecc_data(n): Data values for the eccentricity
54  real(dp), dimension(0:100000) :: ecc_data
55 !> ave_data(n): Data values for the anomaly of vernal equinox
56 !> (= 360 deg - Ls of perihelion )
57  real(dp), dimension(0:100000) :: ave_data
58 !> cp_data(n): Data values for Laskar's climate parameter
59 !> = eccentricity
60 !> *sin(Laskar's longitude of perihelion from moving equinox),
61 !> ( where Laskar's longitude of perihelion from moving equinox
62 !> = Ls of perihelion - 180 deg )
63  real(dp), dimension(0:100000) :: cp_data
64 !> maske_chasm(j,i): Chasma mask.
65 !> 0: grounded ice,
66 !> 1: ice-free land (normal area),
67 !> 7: chasma area
68  integer(i2b), dimension(0:JMAX,0:IMAX) :: maske_chasm
69 !> time_chasm_init: Initial time for active chasma area
70  real(dp) :: time_chasm_init
71 !> time_chasm_end: Final time for active chasma area
72  real(dp) :: time_chasm_end
73 !> q_geo_normal(j,i): Geothermal heat flux for normal (non-chasma) areas
74  real(dp), dimension(0:JMAX,0:IMAX) :: q_geo_normal
75 
76 !> RHO_I: Density of ice
77  real(dp) :: rho_i
78 !> RHO_C: Density of crustal material (dust)
79  real(dp) :: rho_c
80 !> KAPPA_C: Heat conductivity of crustal material (dust)
81  real(dp) :: kappa_c
82 !> C_C: Specific heat of crustal material (dust)
83  real(dp) :: c_c
84 !> rho_inv: Inverse of the density of ice-dust mixture
85  real(dp) :: rho_inv
86 
87 end module sico_vars_m
88 !
integer(i4b) insol_time_stp
insol_time_stp: Time step of the data values for the insolation etc.
Definition: sico_vars_m.F90:45
real(dp), dimension(0:100000) ecc_data
ecc_data(n): Data values for the eccentricity
Definition: sico_vars_m.F90:54
real(dp), dimension(0:jmax, 0:imax) q_geo_normal
q_geo_normal(j,i): Geothermal heat flux for normal (non-chasma) areas
Definition: sico_vars_m.F90:74
integer(i4b) insol_time_min
insol_time_min: Minimum time of the data values for the insolation etc.
Definition: sico_vars_m.F90:43
Declarations of global variables for SICOPOLIS (for the ANT domain).
Definition: sico_vars_m.F90:35
integer(i4b) insol_time_max
insol_time_max: Maximum time of the data values for the insolation etc.
Definition: sico_vars_m.F90:47
integer(i2b), dimension(0:jmax, 0:imax) maske_chasm
maske_chasm(j,i): Chasma mask. 0: grounded ice, 1: ice-free land (normal area), 7: chasma area ...
Definition: sico_vars_m.F90:68
Declarations of kind types for SICOPOLIS.
real(dp) rho_c
RHO_C: Density of crustal material (dust)
Definition: sico_vars_m.F90:79
real(dp) time_chasm_end
time_chasm_end: Final time for active chasma area
Definition: sico_vars_m.F90:72
real(dp) kappa_c
KAPPA_C: Heat conductivity of crustal material (dust)
Definition: sico_vars_m.F90:81
real(dp) rho_i
RHO_I: Density of ice.
Definition: sico_vars_m.F90:77
real(dp) c_c
C_C: Specific heat of crustal material (dust)
Definition: sico_vars_m.F90:83
real(dp) rho_inv
rho_inv: Inverse of the density of ice-dust mixture
Definition: sico_vars_m.F90:85
real(dp) time_chasm_init
time_chasm_init: Initial time for active chasma area
Definition: sico_vars_m.F90:70
real(dp), dimension(0:100000) cp_data
cp_data(n): Data values for Laskar&#39;s climate parameter = eccentricity *sin(Laskar&#39;s longitude of peri...
Definition: sico_vars_m.F90:63
real(dp), dimension(0:100000) obl_data
obl_data(n): Data values for the obliquity
Definition: sico_vars_m.F90:52
real(dp), dimension(0:100000) insol_ma_90
insol_ma_90(n): Data values for the mean-annual north- or south-polar insolation
Definition: sico_vars_m.F90:50
real(dp), dimension(0:100000) ave_data
ave_data(n): Data values for the anomaly of vernal equinox (= 360 deg - Ls of perihelion ) ...
Definition: sico_vars_m.F90:57