! source file: /Users/oschlies/UVIC/master/source/ice/cpts.F

! Energy-conserving sea ice model
! Routines to grow/melt ice and adjust temperature profile

! based on code by: C. M. Bitz

! See Bitz, C.M., and W.H. Lipscomb, 1999:
! A new energy-conserving sea ice model for climate study,
! J. Geophys. Res., in press.

! The author grants permission to the public to copy and use this
! software without charge, provided that this Notice and any statement
! of authorship are reproduced on all copies.

      subroutine dh(sal1d,Fx,Fmix,Fneti,ultnt,condb,
     $     Tw,Ts,Ti,Tbot,Tf,
     $     qi,hi,hs,dhib,subi,subs,
     $     dhit,dhs,dhif,dhsf,ni)

      include "derived_options.h"

      return
      end