C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/atnguyen/code_21Dec2012_saltplume/Attic/autodiff_inadmode_unset_ad.F,v 1.2 2014/04/20 03:47:30 atn dead $ 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