/[MITgcm]/MITgcm/pkg/ptracers/ptracers_ad_check_lev2_dir.h
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_ad_check_lev2_dir.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Tue Oct 9 00:08:45 2007 UTC revision 1.4 by heimbach, Thu Mar 24 12:17:39 2011 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
5  CADJ STORE ptracer   = tapelev2, key = ilev_2  # ifdef AUTODIFF_PTRACERS_SPLIT_FILES
6  CADJ STORE gptrnm1   = tapelev2, key = ilev_2  CADJ STORE ptracer(:,:,:,:,:,1:PTRACERS_num)
7  CADJ STORE gptr      = tapelev2, key = ilev_2  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  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22