arctic40km/code_ad/autodiff_inadmode_unset_ad.F

C $Header: /u/gcmpack/MITgcm_contrib/arctic40km/code_ad/autodiff_inadmode_unset_ad.F,v 1.2 2006/05/31 21:30:36 heimbach 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"
#ifdef ALLOW_SEAICE
# include "SEAICE_PARAMS.h"
#endif

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

      inAdMode = inAdFALSE

      useKPP    = .TRUE.
      useGMREDI = .TRUE.

cph      useSEAICE = .TRUE.
      SEAICEuseDYNAMICS = .TRUE.

      end


1	heimbach	1.3	C $Header: /u/gcmpack/MITgcm_contrib/arctic40km/code_ad/autodiff_inadmode_unset_ad.F,v 1.2 2006/05/31 21:30:36 heimbach Exp $
2	heimbach	1.1
3			#include "AUTODIFF_OPTIONS.h"
4
5			subroutine adautodiff_inadmode_unset( myThid )
6			IMPLICIT NONE
7			C /==========================================================\
8			C \| SUBROUTINE autodiff_inadmode_unset \|
9			C \|==========================================================\|
10			C == Global variables ===
11
12			#include "SIZE.h"
13			#include "EEPARAMS.h"
14			#include "PARAMS.h"
15	heimbach	1.3	#ifdef ALLOW_SEAICE
16			# include "SEAICE_PARAMS.h"
17			#endif
18	heimbach	1.1
19			C == Routine arguments ==
20			C myThid - Thread number for this instance of the routine.
21			integer myThid
22
23			inAdMode = inAdFALSE
24
25	heimbach	1.3	useKPP = .TRUE.
26	heimbach	1.1	useGMREDI = .TRUE.
27	heimbach	1.3
28			cph useSEAICE = .TRUE.
29			SEAICEuseDYNAMICS = .TRUE.
30	heimbach	1.1
31			end
32
33
34
35
36
37
38
39
40