C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/thsice/thsice_ad.flow,v 1.3 2007/10/09 00:12:13 jmc Exp $
C $Name: checkpoint64r $

C----------------------------------------
C subroutine thsice_read_pickup
C----------------------------------------
CADJ SUBROUTINE thsice_read_pickup  INPUT  = 1,2,3
CADJ SUBROUTINE thsice_read_pickup  OUTPUT =

C----------------------------------------
C subroutine THSICE_DIAG_SUFX
C----------------------------------------
CADJ SUBROUTINE THSICE_DIAG_SUFX  INPUT  = 1,2
CADJ SUBROUTINE THSICE_DIAG_SUFX  OUTPUT = 1