|
SICOPOLIS V3.2
|
Computation of temperature and age for a cold ice column with the enthalpy method. More...
Go to the source code of this file.
Functions/Subroutines | |
| subroutine | calc_temp_enth_1 (at1, at2_1, at2_2, at3_1, at3_2, at4_1, at4_2, at5, at6, at7, atr1, acb1, acb2, acb3, acb4, alb1, ai1, ai2, dtime_temp, dtt_2dxi, dtt_2deta, i, j) |
| Computation of temperature and age for a cold ice column with the enthalpy method. More... | |
| subroutine | calc_temp_enth_1_a (at1, at2_1, at2_2, at3_1, at3_2, at4_1, at4_2, at5, at6, at7, atr1, acb1, acb2, acb3, acb4, alb1, ai1, ai2, dtime_temp, dtt_2dxi, dtt_2deta, i, j, ct1, ct2, ct3, ct4, ce5, ce6, ce7, ctr1, ccbe1, ccb2, ccb3, ccb4, clb1, ct1_sg, ct2_sg, ct3_sg, ct4_sg, adv_vert_sg, abs_adv_vert_sg, ci1, ci2, dtt_dxi, dtt_deta) |
| Computation of temperature and age for a cold ice column with the enthalpy method: Abbreviations. More... | |
| subroutine | calc_temp_enth_1_b (ctr1, clb1, i, j, lgs_a0, lgs_a1, lgs_a2, lgs_b) |
| Computation of temperature and age for a cold ice column with the enthalpy method: Set-up of the equations for the bedrock temperature. More... | |
| subroutine | calc_temp_enth_1_c (ct1, ct2, ct3, ct4, ce5, ce6, ce7, ct1_sg, ct2_sg, ct3_sg, ct4_sg, ccbe1, ccb2, ccb3, ccb4, adv_vert_sg, abs_adv_vert_sg, dtime_temp, dtt_dxi, dtt_deta, dtt_2dxi, dtt_2deta, i, j, lgs_a0, lgs_a1, lgs_a2, lgs_b) |
| Computation of temperature and age for a cold ice column with the enthalpy method: Set-up of the equations for the ice enthalpy. More... | |
| subroutine | calc_temp_enth_1_d (ct1, ct2, ct3, ct4, ci1, ci2, ct1_sg, ct2_sg, ct3_sg, ct4_sg, adv_vert_sg, abs_adv_vert_sg, dtime_temp, dtt_dxi, dtt_deta, dtt_2dxi, dtt_2deta, i, j, lgs_a0, lgs_a1, lgs_a2, lgs_b) |
| Computation of temperature and age for a cold ice column with the enthalpy method: Set-up of the equations for the age of ice. More... | |
Computation of temperature and age for a cold ice column with the enthalpy method.
Copyright 2013-2016 Ralf Greve, Heinz Blatter
This file is part of SICOPOLIS.
SICOPOLIS is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
SICOPOLIS is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with SICOPOLIS. If not, see http://www.gnu.org/licenses/.
Definition in file calc_temp_enth_1.F90.
| subroutine calc_temp_enth_1 | ( | real(dp), dimension(0:kcmax), intent(in) | at1, |
| real(dp), dimension(0:kcmax), intent(in) | at2_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at2_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at3_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at3_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at4_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at4_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at5, | ||
| real(dp), dimension(0:kcmax), intent(in) | at6, | ||
| real(dp), intent(in) | at7, | ||
| real(dp), intent(in) | atr1, | ||
| real(dp), intent(in) | acb1, | ||
| real(dp), intent(in) | acb2, | ||
| real(dp), intent(in) | acb3, | ||
| real(dp), intent(in) | acb4, | ||
| real(dp), intent(in) | alb1, | ||
| real(dp), dimension(0:kcmax), intent(in) | ai1, | ||
| real(dp), dimension(0:kcmax), intent(in) | ai2, | ||
| real(dp), intent(in) | dtime_temp, | ||
| real(dp), intent(in) | dtt_2dxi, | ||
| real(dp), intent(in) | dtt_2deta, | ||
| integer(i4b), intent(in) | i, | ||
| integer(i4b), intent(in) | j | ||
| ) |
Computation of temperature and age for a cold ice column with the enthalpy method.
Definition at line 37 of file calc_temp_enth_1.F90.
| subroutine calc_temp_enth_1_a | ( | real(dp), dimension(0:kcmax), intent(in) | at1, |
| real(dp), dimension(0:kcmax), intent(in) | at2_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at2_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at3_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at3_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at4_1, | ||
| real(dp), dimension(0:kcmax), intent(in) | at4_2, | ||
| real(dp), dimension(0:kcmax), intent(in) | at5, | ||
| real(dp), dimension(0:kcmax), intent(in) | at6, | ||
| real(dp), intent(in) | at7, | ||
| real(dp), intent(in) | atr1, | ||
| real(dp), intent(in) | acb1, | ||
| real(dp), intent(in) | acb2, | ||
| real(dp), intent(in) | acb3, | ||
| real(dp), intent(in) | acb4, | ||
| real(dp), intent(in) | alb1, | ||
| real(dp), dimension(0:kcmax), intent(in) | ai1, | ||
| real(dp), dimension(0:kcmax), intent(in) | ai2, | ||
| real(dp), intent(in) | dtime_temp, | ||
| real(dp), intent(in) | dtt_2dxi, | ||
| real(dp), intent(in) | dtt_2deta, | ||
| integer(i4b), intent(in) | i, | ||
| integer(i4b), intent(in) | j, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct1, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct2, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct3, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct4, | ||
| real(dp), dimension(0:kcmax), intent(out) | ce5, | ||
| real(dp), dimension(0:kcmax), intent(out) | ce6, | ||
| real(dp), dimension(0:kcmax), intent(out) | ce7, | ||
| real(dp), intent(out) | ctr1, | ||
| real(dp), intent(out) | ccbe1, | ||
| real(dp), intent(out) | ccb2, | ||
| real(dp), intent(out) | ccb3, | ||
| real(dp), intent(out) | ccb4, | ||
| real(dp), intent(out) | clb1, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct1_sg, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct2_sg, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct3_sg, | ||
| real(dp), dimension(0:kcmax), intent(out) | ct4_sg, | ||
| real(dp), dimension(0:kcmax), intent(out) | adv_vert_sg, | ||
| real(dp), dimension(0:kcmax), intent(out) | abs_adv_vert_sg, | ||
| real(dp), dimension(0:kcmax), intent(out) | ci1, | ||
| real(dp), dimension(0:kcmax), intent(out) | ci2, | ||
| real(dp), intent(out) | dtt_dxi, | ||
| real(dp), intent(out) | dtt_deta | ||
| ) |
Computation of temperature and age for a cold ice column with the enthalpy method: Abbreviations.
Definition at line 189 of file calc_temp_enth_1.F90.
| subroutine calc_temp_enth_1_b | ( | real(dp), intent(in) | ctr1, |
| real(dp), intent(in) | clb1, | ||
| integer(i4b), intent(in) | i, | ||
| integer(i4b), intent(in) | j, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a0, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a1, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a2, | ||
| lgs_b | |||
| ) |
Computation of temperature and age for a cold ice column with the enthalpy method: Set-up of the equations for the bedrock temperature.
Definition at line 385 of file calc_temp_enth_1.F90.
| subroutine calc_temp_enth_1_c | ( | real(dp), dimension(0:kcmax), intent(in) | ct1, |
| real(dp), dimension(0:kcmax), intent(in) | ct2, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct3, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct4, | ||
| real(dp), dimension(0:kcmax), intent(in) | ce5, | ||
| real(dp), dimension(0:kcmax), intent(in) | ce6, | ||
| ce7, | |||
| real(dp), dimension(0:kcmax), intent(in) | ct1_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct2_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct3_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct4_sg, | ||
| real(dp), intent(in) | ccbe1, | ||
| real(dp), intent(in) | ccb2, | ||
| real(dp), intent(in) | ccb3, | ||
| real(dp), intent(in) | ccb4, | ||
| real(dp), dimension(0:kcmax), intent(in) | adv_vert_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | abs_adv_vert_sg, | ||
| real(dp), intent(in) | dtime_temp, | ||
| real(dp), intent(in) | dtt_dxi, | ||
| real(dp), intent(in) | dtt_deta, | ||
| real(dp), intent(in) | dtt_2dxi, | ||
| real(dp), intent(in) | dtt_2deta, | ||
| integer(i4b), intent(in) | i, | ||
| integer(i4b), intent(in) | j, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a0, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a1, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a2, | ||
| lgs_b | |||
| ) |
Computation of temperature and age for a cold ice column with the enthalpy method: Set-up of the equations for the ice enthalpy.
Definition at line 452 of file calc_temp_enth_1.F90.
| subroutine calc_temp_enth_1_d | ( | real(dp), dimension(0:kcmax), intent(in) | ct1, |
| real(dp), dimension(0:kcmax), intent(in) | ct2, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct3, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct4, | ||
| real(dp), dimension(0:kcmax), intent(in) | ci1, | ||
| real(dp), dimension(0:kcmax), intent(in) | ci2, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct1_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct2_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct3_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | ct4_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | adv_vert_sg, | ||
| real(dp), dimension(0:kcmax), intent(in) | abs_adv_vert_sg, | ||
| real(dp), intent(in) | dtime_temp, | ||
| real(dp), intent(in) | dtt_dxi, | ||
| real(dp), intent(in) | dtt_deta, | ||
| real(dp), intent(in) | dtt_2dxi, | ||
| real(dp), intent(in) | dtt_2deta, | ||
| integer(i4b), intent(in) | i, | ||
| integer(i4b), intent(in) | j, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a0, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a1, | ||
| real(dp), dimension(0:kcmax+ktmax+krmax+imax+jmax), intent(out) | lgs_a2, | ||
| lgs_b | |||
| ) |
Computation of temperature and age for a cold ice column with the enthalpy method: Set-up of the equations for the age of ice.
Definition at line 599 of file calc_temp_enth_1.F90.
1.8.5
