49 if ( (maske(j,i) == 0).or.(maske(j,i) == 3) )
then
52 if (n_cts(j,i) == -1)
then
54 temp_b(j,i) = temp_c(0,j,i)
55 temph_b(j,i) = temp_c(0,j,i) - temp_c_m(0,j,i)
60 temp_b(j,i) = temp_t_m(0,j,i)
68 temp_b(j,i) = temp_c(0,j,i)
69 temph_b(j,i) = temp_c(0,j,i) - temp_c_m(0,j,i)
subroutine calc_temp_bas()
Computation of the basal temperatures.
Declarations of kind types for SICOPOLIS.
Declarations of global variables for SICOPOLIS (for the ANT domain).
Declarations of global variables for SICOPOLIS.