C $Header: /u/gcmpack/MITgcm/verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_set_ad.F,v 1.2 2005/06/16 15:40:07 heimbach Exp $

#include "AUTODIFF_OPTIONS.h"

      subroutine ADAUTODIFF_INADMODE_SET( myThid )
      IMPLICIT NONE
C     /==========================================================\
C     | SUBROUTINE adautodiff_inadmode_set                       |
C     |==========================================================|
C     == Global variables ===

#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
      integer myThid

      inAdmode = inAdTrue

      useGMREDI = .FALSE.
      useKPP    = .FALSE.
      useSEAICE = .FALSE.

      end