! source file: /sfs/fs6/home-geomar/smomw258/UVic_ESCM/2.9/source/common/isleperim.h
!===================== include file "isleperim.h" ======================

!                      topography changes

!     kmt_opt     = a list of possible modifications to kmt to fix
!                   one flagged problem.
!     kmt_changes = list of collected changes to kmt
!     nchanges    = number of changes to kmt in kmt_changes
!     auto_kmt_changes = tells whether any changes have been made to the
!                        kmt field as a result define options or
!                        interactive user actions.
!     max_opt     = max number of options for kmt_opt
!     len_opt     = max number of kmt points changed per option
!     io_del_kmt  = io unit for writing delta.kmt.###x###x###.h file
!     n_del_kmt   = number of kmt changes in delta.kmt.###x###x###.h

      integer max_opt, len_opt, max_change
      parameter (max_opt=3, len_opt=10, max_change=100)

      integer kmt_opt, kmt_changes, nchanges, io_del_kmt, n_del_kmt
      common /kmtchg_i/ kmt_opt(max_opt, len_opt, 4)
      common /kmtchg_i/ kmt_changes(max_change, 4)
      common /kmtchg_i/ nchanges, io_del_kmt, n_del_kmt

      logical auto_kmt_changes
      common /kmtchg_l/ auto_kmt_changes