42 #if (defined(INITMIP_SMB_ANOM_FILE)) 45 real(dp),
dimension(0:JMAX,0:IMAX) :: as_anom_initmip
48 #if (defined(INITMIP_BMB_ANOM_FILE)) 51 real(dp),
dimension(0:JMAX,0:IMAX) :: ab_anom_initmip
55 integer(i2b),
dimension(0:JMAX,0:IMAX) ::
n_sector 57 #if (defined(SEDI_SLIDE) \ 58 && sedi_slide==2) /* with sediment sliding */
63 integer(i2b),
dimension(0:JMAX,0:IMAX) ::
maske_sedi 68 real(dp),
dimension(0:JMAX,0:IMAX) :: r_mask_sedi
integer(i2b), dimension(0:jmax, 0:imax) n_sector
n_sector(j,i): Marker for the different sectors for ice shelf basal melting.
integer(i2b), dimension(0:jmax, 0:imax) maske_sedi
maske_sedi(j,i): Sediment mask. 1: hard rock, 7: soft sediment, 2: ocean.
Declarations of global variables for SICOPOLIS (for the ANT domain).
Declarations of kind types for SICOPOLIS.