43 real(dp),
intent(in) :: z_sl
52 if (maske(j,i)==0_i2b)
then
55 else if (maske(j,i)==1_i2b)
then
57 else if (maske(j,i)==2_i2b)
then
58 h_w(j,i) = z_sl-zl(j,i)
60 h_w(j,i) = zb(j,i)-zl(j,i)
subroutine calc_water_bas(z_sl)
Computation of the thickness of the water column under the ice base.
Declarations of kind types for SICOPOLIS.
Declarations of global variables for SICOPOLIS (for the ANT domain).
Declarations of global variables for SICOPOLIS.