parameter (dyice_lat_def=60.)
       parameter (Cdair_def=1e-03)
       parameter (Cdwater_def=5e-03)
       parameter (Pstar_def=5e03)
       parameter (C_def=20)
       parameter (phi_def=30)
       parameter (delta_def=0.)
       parameter (etamax_def=1e12)
       parameter (theta_a_def=25)
       parameter (theta_w_def=25)

c========================================================================
c     Common block options: program options
c========================================================================

      integer
     +          BndyCond,    
     +          DragLaw,     
     +          InitialGuess,
     +          Rheology
                             

      common/options/
     +          BndyCond,      ! 1-noslip or 2-freeslip
     +          DragLaw,       ! 1-linear, 2-square, 3-linearH or 4-squareH
     +          InitialGuess,  ! 1-FreedDrift or 2-PreviousTimeStep
     +          Rheology       ! 1-FreeDrift, 2-Cavitating, 3-Granular 


      real  Ktracer(MAXTR_SUR)

      common/more_options/ dyice_lat, Cdair, Cdwater, Pstar, C, phi, delta,
     *                 etamax, Ktracer