atnguyen/code_21Dec2012_saltplume/autodiff_inadmode_unset_ad.F

C $Header: /u/gcmpack/MITgcm_contrib/atnguyen/code_21Dec2012_saltplume/autodiff_inadmode_unset_ad.F,v 1.1 2012/12/21 10:00:28 atn Exp $
C $Name:  $

#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

      inAdMode = inAdFALSE

      useKPP = .TRUE.
      useGMREDI = .TRUE.

      end


1	C $Header: /u/gcmpack/MITgcm_contrib/atnguyen/code_21Dec2012_saltplume/autodiff_inadmode_unset_ad.F,v 1.1 2012/12/21 10:00:28 atn Exp $
2	C $Name: $
3
4	#include "AUTODIFF_OPTIONS.h"
5
6	subroutine adautodiff_inadmode_unset( myThid )
7	IMPLICIT NONE
8	C /==========================================================\
9	C \| SUBROUTINE autodiff_inadmode_unset \|
10	C \|==========================================================\|
11	C == Global variables ===
12
13	#include "SIZE.h"
14	#include "EEPARAMS.h"
15	#include "PARAMS.h"
16
17	C == Routine arguments ==
18	C myThid - Thread number for this instance of the routine.
19	integer myThid
20
21	inAdMode = inAdFALSE
22
23	useKPP = .TRUE.
24	useGMREDI = .TRUE.
25
26	end
27
28
29
30
31
32
33
34
35