44 real(dp),
intent(in) :: sigma_val
47 real(dp),
parameter :: sm_coeff_1 = 8.5112e-15_dp, &
48 sm_coeff_2 = 8.1643e-25_dp, &
49 sm_coeff_3 = 9.2594e-12_dp
56 creep = sigma_val*sigma_val
61 creep = sigma_val**0.8_dp * gr_size**(-1.4_dp)
66 creep = sigma_val*sigma_val*sigma_val
75 creep = sigma_val*sigma_val + sigma_res*sigma_res
80 creep = (sigma_val**0.8_dp + sigma_res**0.8_dp) * gr_size**(-1.4_dp)
86 creep = sigma_val*sigma_val*sigma_val + sigma_res*sigma_res*sigma_res
96 + sm_coeff_2 * (sigma_val*sigma_val) &
97 * (1.0_dp + sm_coeff_3 * (sigma_val*sigma_val))
Declarations of kind types for SICOPOLIS.
Declarations of global variables for SICOPOLIS (for the ANT domain).
Declarations of global variables for SICOPOLIS.
real(dp) function creep(sigma_val)
Creep response function for ice.