c version 1.0

      parameter (pi=3.1415926)
      parameter (dyice_pdef=1e4,dyice_edef=2,dyice_cdef=20,
     *            dyice_emindef=1e-8)
      parameter (dyice_alpaidef=25*pi/180,dyice_alpiwdef=25*pi/180,
     *            dyice_caidef=0.0012,dyice_ciwdef=0.0055,
     *            dyice_diffdef=100.)

      common/dyn_ice/ dyice_p, dyice_e, dyice_c, dyice_emin,
     *         dyice_alpai, dyice_alpiw, dyice_cai, dyice_ciw, dyice_diff


      common /dyice_param/ nstep_dyice