C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/arctic40km/code_ad/autodiff_inadmode_unset_ad.F,v 1.3 2006/06/05 17:58:14 heimbach Exp $

#include "AUTODIFF_OPTIONS.h"

      subroutine adautodiff_inadmode_unset( myThid )
      IMPLICIT NONE
C     /==========================================================\
C     | SUBROUTINE autodiff_inadmode_unset                       |
C     |==========================================================|
C     == Global variables ===

#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef ALLOW_SEAICE
# include "SEAICE_PARAMS.h"
#endif

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

      inAdMode = inAdFALSE

      useKPP    = .TRUE.
      useGMREDI = .TRUE.

cph      useSEAICE = .TRUE.
      SEAICEuseDYNAMICS = .TRUE.

      end