arctic40km/code_ad/autodiff_inadmode_set_ad.F

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

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

      inAdmode = inAdTrue

      useKPP    = .FALSE.
      useGMREDI = .FALSE.

cph      useSEAICE = .FALSE.
      SEAICEuseDYNAMICS = .FALSE.

      end

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