pkg/ptracers/ptracers_ad_check_lev2_dir.h

C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_ad_check_lev2_dir.h,v 1.3 2007/10/09 00:08:45 jmc Exp $
C $Name:  $

#ifdef ALLOW_PTRACERS
# ifdef AUTODIFF_PTRACERS_SPLIT_FILES
CADJ STORE ptracer(:,:,:,:,:,1:PTRACERS_num)
CADJ &     = tapelev2_ptr, key = ilev_2
CADJ STORE gptrnm1(:,:,:,:,:,1:PTRACERS_num)
CADJ &     = tapelev2_ptr, key = ilev_2
CADJ STORE gptr(:,:,:,:,:,1:PTRACERS_num)
CADJ &     = tapelev2_ptr, key = ilev_2
# else
CADJ STORE ptracer = tapelev2, key = ilev_2
CADJ STORE gptrnm1 = tapelev2, key = ilev_2
CADJ STORE gptr    = tapelev2, key = ilev_2
# endif
#endif /* ALLOW_PTRACERS */
1	heimbach	1.4	C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_ad_check_lev2_dir.h,v 1.3 2007/10/09 00:08:45 jmc Exp $
2	jmc	1.3	C $Name: $
3
4	heimbach	1.1	#ifdef ALLOW_PTRACERS
5	heimbach	1.4	# ifdef AUTODIFF_PTRACERS_SPLIT_FILES
6			CADJ STORE ptracer(:,:,:,:,:,1:PTRACERS_num)
7			CADJ & = tapelev2_ptr, key = ilev_2
8			CADJ STORE gptrnm1(:,:,:,:,:,1:PTRACERS_num)
9			CADJ & = tapelev2_ptr, key = ilev_2
10			CADJ STORE gptr(:,:,:,:,:,1:PTRACERS_num)
11			CADJ & = tapelev2_ptr, key = ilev_2
12			# else
13			CADJ STORE ptracer = tapelev2, key = ilev_2
14			CADJ STORE gptrnm1 = tapelev2, key = ilev_2
15			CADJ STORE gptr = tapelev2, key = ilev_2
16			# endif
17	heimbach	1.1	#endif /* ALLOW_PTRACERS */