1 |
heimbach |
1.5 |
C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_ad_check_lev3_dir.h,v 1.4 2011/03/24 12:17:39 heimbach 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 |
heimbach |
1.5 |
CADJ & = tapelev3, key = ilev_3 |
8 |
heimbach |
1.4 |
CADJ STORE gptrnm1(:,:,:,:,:,1:PTRACERS_num) |
9 |
heimbach |
1.5 |
CADJ & = tapelev3, key = ilev_3 |
10 |
heimbach |
1.4 |
CADJ STORE gptr(:,:,:,:,:,1:PTRACERS_num) |
11 |
heimbach |
1.5 |
CADJ & = tapelev3, key = ilev_3 |
12 |
heimbach |
1.4 |
# else |
13 |
|
|
CADJ STORE ptracer = tapelev3, key = ilev_3 |
14 |
|
|
CADJ STORE gptrnm1 = tapelev3, key = ilev_3 |
15 |
|
|
CADJ STORE gptr = tapelev3, key = ilev_3 |
16 |
|
|
# endif |
17 |
heimbach |
1.1 |
#endif /* ALLOW_PTRACERS */ |