/[MITgcm]/MITgcm/pkg/ptracers/ptracers_integrate.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_integrate.F

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

revision 1.40 by jmc, Sun Nov 14 23:32:15 2010 UTC revision 1.41 by heimbach, Tue Jan 18 19:37:41 2011 UTC
# Line 128  CADJ STORE pTracer(:,:,k,bi,bj,iTracer) Line 128  CADJ STORE pTracer(:,:,k,bi,bj,iTracer)
128  CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte  CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte
129  CADJ STORE gpTrNm1(:,:,k,bi,bj,iTracer)  CADJ STORE gpTrNm1(:,:,k,bi,bj,iTracer)
130  CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte  CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte
131    # ifdef NONLIN_FRSURF
132    CADJ STORE gpTr(:,:,k,bi,bj,iTracer)
133    CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte
134    CADJ STORE rFlx(:,:,k,iTracer)
135    CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte
136    # endif
137  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
138    
139  C Calculate active tracer tendencies (gPtr) due to internal processes  C Calculate active tracer tendencies (gPtr) due to internal processes
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22