C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/ifenty/seaiceAdjointCode/autodiff_inadmode_set_ad.F,v 1.1 2007/06/29 18:54:03 gforget 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 inAdmode = inAdTrue useKPP = .FALSE. useGMREDI = .FALSE. end