pkg/autodiff/AUTODIFF_PARAMS.h

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF_PARAMS.h,v 1.1 2012/07/04 20:16:43 jmc Exp $
C $Name:  $

CBOP
C     !ROUTINE: AUTODIFF_PARAMS.h
C     !INTERFACE:
C     #include AUTODIFF_PARAMS.h

C     !DESCRIPTION:
C     Header file defining pkg/autodiff "parameters".  The values
C     from the pkg input file are stored into the variables held
C     here. Notes describing the parameters can also be found here.

CEOP

C--   COMMON /AUTODIFF_PARM_L/ Logical valued parameters used by the pkg.
C     inAdMode  :: enable approximate computation in backward sweep
C     inAdTrue  :: value of inAdMode flag during backward sweep
C     inAdFalse :: value of inAdMode flag during forward  sweep
C     inAdExact :: get an exact adjoint (no approximation)
      LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact

C-    Logical flags for turning off parts of the code in adjoint mode
C     turnFreeDriftInAdMode :: switch SEAICE to Free-Drift in adjoint mode (def=F)
      LOGICAL useKPPinAdMode,    useKPPinFwdMode
      LOGICAL useGMRediInAdMode, useGMRediInFwdMode
      LOGICAL useSEAICEinAdMode, useSEAICEinFwdMode
      LOGICAL turnFreeDriftInAdMode

      COMMON /AUTODIFF_PARM_L/
     &       inAdMode, inAdTrue, inAdFalse, inAdExact,
     &       useKPPinAdMode,    useKPPinFwdMode,
     &       useGMRediInAdMode, useGMRediInFwdMode,
     &       useSEAICEinAdMode, useSEAICEinFwdMode,
     &       turnFreeDriftInAdMode

C--   COMMON /AUTODIFF_PARM_I/ Integer valued parameters used by the pkg.

C--   COMMON /AUTODIFF_PARM_R/ "Real" valued parameters used by the pkg.

C--   COMMON /AUTODIFF_PARM_C/ Character valued parameters used by the pkg.

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF_PARAMS.h,v 1.1 2012/07/04 20:16:43 jmc Exp $
2	C $Name: $
3
4	CBOP
5	C !ROUTINE: AUTODIFF_PARAMS.h
6	C !INTERFACE:
7	C #include AUTODIFF_PARAMS.h
8
9	C !DESCRIPTION:
10	C Header file defining pkg/autodiff "parameters". The values
11	C from the pkg input file are stored into the variables held
12	C here. Notes describing the parameters can also be found here.
13
14	CEOP
15
16	C-- COMMON /AUTODIFF_PARM_L/ Logical valued parameters used by the pkg.
17	C inAdMode :: enable approximate computation in backward sweep
18	C inAdTrue :: value of inAdMode flag during backward sweep
19	C inAdFalse :: value of inAdMode flag during forward sweep
20	C inAdExact :: get an exact adjoint (no approximation)
21	LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact
22
23	C- Logical flags for turning off parts of the code in adjoint mode
24	C turnFreeDriftInAdMode :: switch SEAICE to Free-Drift in adjoint mode (def=F)
25	LOGICAL useKPPinAdMode, useKPPinFwdMode
26	LOGICAL useGMRediInAdMode, useGMRediInFwdMode
27	LOGICAL useSEAICEinAdMode, useSEAICEinFwdMode
28	LOGICAL turnFreeDriftInAdMode
29
30	COMMON /AUTODIFF_PARM_L/
31	& inAdMode, inAdTrue, inAdFalse, inAdExact,
32	& useKPPinAdMode, useKPPinFwdMode,
33	& useGMRediInAdMode, useGMRediInFwdMode,
34	& useSEAICEinAdMode, useSEAICEinFwdMode,
35	& turnFreeDriftInAdMode
36
37	C-- COMMON /AUTODIFF_PARM_I/ Integer valued parameters used by the pkg.
38
39	C-- COMMON /AUTODIFF_PARM_R/ "Real" valued parameters used by the pkg.
40
41	C-- COMMON /AUTODIFF_PARM_C/ Character valued parameters used by the pkg.
42
43	CEH3 ;;; Local Variables: ***
44	CEH3 ;;; mode:fortran ***
45	CEH3 ;;; End: ***