SICOPOLIS V5-dev  Revision 1173
Functions/Subroutines
calc_temp_m Module Reference

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...
 

Detailed Description

Computation of temperature, water content and age.

Function/Subroutine Documentation

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.