C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/SOSE/code_ad/autodiff_inadmode_unset_ad.F,v 1.1 2010/04/23 19:55:11 mmazloff 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"

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

      inAdMode = inAdFALSE

      usePtracers = .FALSE. 
      useKPP = .TRUE.
      useGMREDI = .TRUE.
      useSEAICE = .TRUE.

CMM LV
       viscAh=1.E1
       viscAhD=1.E1
       viscAhZ=1.E1
       viscAhW=1.E1
       viscA4=1.E10
       viscA4D=1.E10
       viscA4Z=1.E10
       viscA4W=1.E10
CMM
       diffKhT=0.E3
       diffKhS=0.E3
       diffK4T=1.E10
       diffK4S=1.E10
CMM
C       diffKrT=1.E-5
C       diffKrS=1.E-5
       DO k=1,Nr
          diffKrNrT(k) = 1.E-5
          diffKrNrS(k) = 1.E-5
       ENDDO
CMM LV

      end