1 |
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 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_PTRACERS |
5 |
# ifdef AUTODIFF_PTRACERS_SPLIT_FILES |
6 |
CADJ STORE ptracer(:,:,:,:,:,1:PTRACERS_num) |
7 |
CADJ & = tapelev3, key = ilev_3 |
8 |
CADJ STORE gptrnm1(:,:,:,:,:,1:PTRACERS_num) |
9 |
CADJ & = tapelev3, key = ilev_3 |
10 |
CADJ STORE gptr(:,:,:,:,:,1:PTRACERS_num) |
11 |
CADJ & = tapelev3, key = ilev_3 |
12 |
# 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 |
#endif /* ALLOW_PTRACERS */ |