/[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.1 by heimbach, Fri Oct 10 22:39:27 2003 UTC revision 1.4 by heimbach, Thu Mar 24 12:17:39 2011 UTC
# Line 1  Line 1 
1    C $Header$
2    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 surfacetendencys =  CADJ &     = tapelev2_ptr, key = ilev_2
8  CADJ &     tapelev2, key = ilev_2  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.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22