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

Contents of /MITgcm/pkg/ptracers/ptracers_ad_check_lev4_dir.h

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

Revision 1.5 - (show annotations) (download)
Fri Aug 15 19:18:12 2014 UTC (9 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65c, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, HEAD
Changes since 1.4: +5 -8 lines
File MIME type: text/plain 
remove gPtr from common block
1 C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_ad_check_lev4_dir.h,v 1.4 2011/03/24 21:39:55 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 & = tapelev4, key = ilev_4
8 CADJ STORE gpTrNm1(:,:,:,:,:,1:PTRACERS_num)
9 CADJ & = tapelev4, key = ilev_4
10 # else
11 CADJ STORE pTracer = tapelev4, key = ilev_4
12 CADJ STORE gpTrNm1 = tapelev4, key = ilev_4
13 # endif
14 #endif /* ALLOW_PTRACERS */
  ViewVC Help
Powered by ViewVC 1.1.22