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

      inAdmode = inAdTrue

      usePtracers  = .FALSE.
      useKPP = .FALSE.
      useGMREDI = .FALSE.
      useSEAICE = .FALSE.
CMM HV
       viscAh=1.E3
       viscAhD=1.E3
       viscAhZ=1.E3
       viscAhW=1.E3
       viscA4=1.E9
       viscA4D=1.E9
       viscA4Z=1.E9
       viscA4W=1.E9
CMM
       diffKhT=1.E3
       diffKhS=1.E3
       diffK4T=0.E10
       diffK4S=0.E10
CMM
C       diffKrT=1.E-3
C       diffKrS=1.E-3
       DO k=1,Nr
          diffKrNrT(k) = 1.E-3
          diffKrNrS(k) = 1.E-3
       ENDDO
CMM HV
      end