Computation of temperature, water content and age. More...
Functions/Subroutines | |
subroutine, public | calc_temp_poly (dxi, deta, dzeta_c, dzeta_t, dzeta_r, dtime_temp) |
Computation of temperature, water content and age in polythermal mode. More... | |
subroutine, public | calc_temp_cold (dxi, deta, dzeta_c, dzeta_t, dzeta_r, dtime_temp) |
Computation of temperature and age in cold-ice mode. More... | |
subroutine, public | calc_temp_const () |
Isothermal mode: Setting of the temperature and age to constant values. More... | |
subroutine | calc_temp2 (at1, at2_1, at2_2, at3_1, at3_2, at4_1, at4_2, at5, at6, at7, atr1, alb1, ai1, ai2, dtime_temp, dtt_2dxi, dtt_2deta, i, j) |
Computation of temperature and age for an ice column with a temperate base overlain by cold ice. More... | |
subroutine | calc_temp3 (at1, at2_1, at2_2, at3_1, at3_2, at4_1, at4_2, at5, at6, at7, atr1, am1, am2, alb1, aw1, aw2, aw3, aw4, aw5, aw7, aw8, aw9, aqtld, ai1, ai2, ai3, dzeta_t, dtime_temp, dtt_2dxi, dtt_2deta, i, j) |
Computation of temperature, water content and age for an ice column with a temperate base overlain by a temperate-ice layer. More... | |
subroutine | calc_temp_r (atr1, alb1, i, j) |
Computation of temperature and age for an ice-free column. More... | |
subroutine | shift_cts_upward (at1, at2_1, at2_2, at3_1, at3_2, at4_1, at4_2, at5, at6, at7, atr1, am1, am2, alb1, aw1, aw2, aw3, aw4, aw5, aw7, aw8, aw9, aqtld, ai1, ai2, ai3, dzeta_t, dtime_temp, dtt_2dxi, dtt_2deta, dtime_temp_inv, i, j) |
Upward shifting of the CTS. More... | |
Computation of temperature, water content and age.
subroutine calc_temp_m::calc_temp2 | ( | 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) | 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 an ice column with a temperate base overlain by cold ice.
Definition at line 1912 of file calc_temp_m.F90.
subroutine calc_temp_m::calc_temp3 | ( | 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) | am1, | ||
real(dp), intent(in) | am2, | ||
real(dp), intent(in) | alb1, | ||
real(dp), intent(in) | aw1, | ||
real(dp), intent(in) | aw2, | ||
real(dp), intent(in) | aw3, | ||
real(dp), intent(in) | aw4, | ||
real(dp), intent(in) | aw5, | ||
real(dp), intent(in) | aw7, | ||
real(dp), intent(in) | aw8, | ||
real(dp), intent(in) | aw9, | ||
real(dp), intent(in) | aqtld, | ||
real(dp), dimension(0:kcmax), intent(in) | ai1, | ||
real(dp), dimension(0:kcmax), intent(in) | ai2, | ||
real(dp), intent(in) | ai3, | ||
real(dp), intent(in) | dzeta_t, | ||
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, water content and age for an ice column with a temperate base overlain by a temperate-ice layer.
Definition at line 2421 of file calc_temp_m.F90.
subroutine, public calc_temp_m::calc_temp_cold | ( | real(dp), intent(in) | dxi, |
real(dp), intent(in) | deta, | ||
real(dp), intent(in) | dzeta_c, | ||
real(dp), intent(in) | dzeta_t, | ||
real(dp), intent(in) | dzeta_r, | ||
real(dp), intent(in) | dtime_temp | ||
) |
Computation of temperature and age in cold-ice mode.
Definition at line 820 of file calc_temp_m.F90.
subroutine, public calc_temp_m::calc_temp_const | ( | ) |
Isothermal mode: Setting of the temperature and age to constant values.
Definition at line 1342 of file calc_temp_m.F90.
subroutine, public calc_temp_m::calc_temp_poly | ( | real(dp), intent(in) | dxi, |
real(dp), intent(in) | deta, | ||
real(dp), intent(in) | dzeta_c, | ||
real(dp), intent(in) | dzeta_t, | ||
real(dp), intent(in) | dzeta_r, | ||
real(dp), intent(in) | dtime_temp | ||
) |
Computation of temperature, water content and age in polythermal mode.
Definition at line 53 of file calc_temp_m.F90.
subroutine calc_temp_m::calc_temp_r | ( | real(dp), intent(in) | atr1, |
real(dp), intent(in) | alb1, | ||
integer(i4b), intent(in) | i, | ||
integer(i4b), intent(in) | j | ||
) |
Computation of temperature and age for an ice-free column.
Definition at line 3419 of file calc_temp_m.F90.
subroutine calc_temp_m::shift_cts_upward | ( | 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) | am1, | ||
real(dp), intent(in) | am2, | ||
real(dp), intent(in) | alb1, | ||
real(dp), intent(in) | aw1, | ||
real(dp), intent(in) | aw2, | ||
real(dp), intent(in) | aw3, | ||
real(dp), intent(in) | aw4, | ||
real(dp), intent(in) | aw5, | ||
real(dp), intent(in) | aw7, | ||
real(dp), intent(in) | aw8, | ||
real(dp), intent(in) | aw9, | ||
real(dp), intent(in) | aqtld, | ||
real(dp), dimension(0:kcmax), intent(in) | ai1, | ||
real(dp), dimension(0:kcmax), intent(in) | ai2, | ||
real(dp), intent(in) | ai3, | ||
real(dp), intent(in) | dzeta_t, | ||
real(dp), intent(in) | dtime_temp, | ||
real(dp), intent(in) | dtt_2dxi, | ||
real(dp), intent(in) | dtt_2deta, | ||
real(dp), intent(in) | dtime_temp_inv, | ||
integer(i4b), intent(in) | i, | ||
integer(i4b), intent(in) | j | ||
) |
Upward shifting of the CTS.
Definition at line 3511 of file calc_temp_m.F90.