tutorial_tracer_adjsens/code_oad/PTRACERS_SIZE.h

C $Header: /u/gcmpack/MITgcm/pkg/ptracers/PTRACERS_SIZE.h,v 1.4 2006/02/15 04:00:44 heimbach Exp $
C $Name: checkpoint64 $

#ifdef ALLOW_PTRACERS

CBOP
C    !ROUTINE: PTRACERS_SIZE.h
C    !INTERFACE:
C #include PTRACERS_SIZE.h
 
C    !DESCRIPTION:
C Contains passive tracer array size (number of tracers).

C PTRACERS_num defines how many passive tracers are allocated/exist.
C  and is set here (default 1)
C
C     Number of tracers
      INTEGER PTRACERS_num
      PARAMETER(PTRACERS_num = 1 )

#ifdef ALLOW_AUTODIFF_TAMC
c daiwei      INTEGER    iptrkey
      INTEGER    maxpass
      PARAMETER( maxpass     = PTRACERS_num + 2 )
#endif

CEOP
#endif /* ALLOW_PTRACERS */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/ptracers/PTRACERS_SIZE.h,v 1.4 2006/02/15 04:00:44 heimbach Exp $
2	C $Name: checkpoint64 $
3
4	#ifdef ALLOW_PTRACERS
5
6	CBOP
7	C !ROUTINE: PTRACERS_SIZE.h
8	C !INTERFACE:
9	C #include PTRACERS_SIZE.h
10
11	C !DESCRIPTION:
12	C Contains passive tracer array size (number of tracers).
13
14	C PTRACERS_num defines how many passive tracers are allocated/exist.
15	C and is set here (default 1)
16	C
17	C Number of tracers
18	INTEGER PTRACERS_num
19	PARAMETER(PTRACERS_num = 1 )
20
21	#ifdef ALLOW_AUTODIFF_TAMC
22	c daiwei INTEGER iptrkey
23	INTEGER maxpass
24	PARAMETER( maxpass = PTRACERS_num + 2 )
25	#endif
26
27	CEOP
28	#endif /* ALLOW_PTRACERS */
29
30	CEH3 ;;; Local Variables: ***
31	CEH3 ;;; mode:fortran ***
32	CEH3 ;;; End: ***