pkg/ptracers/ptracers_ad_check_lev4_dir.h

C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_ad_check_lev4_dir.h,v 1.2 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 &     = tapelev4_ptr, key = ilev_4
CADJ STORE gptrnm1(:,:,:,:,:,1:PTRACERS_num)
CADJ &     = tapelev4_ptr, key = ilev_4
CADJ STORE gptr(:,:,:,:,:,1:PTRACERS_num)
CADJ &     = tapelev4_ptr, key = ilev_4
# else
CADJ STORE ptracer = tapelev4, key = ilev_4
CADJ STORE gptrnm1 = tapelev4, key = ilev_4
CADJ STORE gptr    = tapelev4, key = ilev_4
# endif
#endif /* ALLOW_PTRACERS */
1	heimbach	1.3	C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_ad_check_lev4_dir.h,v 1.2 2007/10/09 00:08:45 jmc Exp $
2	jmc	1.2	C $Name: $
3
4	heimbach	1.1	#ifdef ALLOW_PTRACERS
5	heimbach	1.3	# ifdef AUTODIFF_PTRACERS_SPLIT_FILES
6			CADJ STORE ptracer(:,:,:,:,:,1:PTRACERS_num)
7			CADJ & = tapelev4_ptr, key = ilev_4
8			CADJ STORE gptrnm1(:,:,:,:,:,1:PTRACERS_num)
9			CADJ & = tapelev4_ptr, key = ilev_4
10			CADJ STORE gptr(:,:,:,:,:,1:PTRACERS_num)
11			CADJ & = tapelev4_ptr, key = ilev_4
12			# else
13			CADJ STORE ptracer = tapelev4, key = ilev_4
14			CADJ STORE gptrnm1 = tapelev4, key = ilev_4
15			CADJ STORE gptr = tapelev4, key = ilev_4
16			# endif
17	heimbach	1.1	#endif /* ALLOW_PTRACERS */