!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*     The variable varmtn is .true. if the mountains are growing.
      integer varmtn
      common /mountains/ varmtn