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

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

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

revision 1.1 by adcroft, Mon Mar 4 19:01:29 2002 UTC revision 1.2 by stephd, Fri Oct 31 17:40:36 2003 UTC
# Line 28  C !OUTPUT PARAMETERS: ================== Line 28  C !OUTPUT PARAMETERS: ==================
28  C  none  C  none
29    
30  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
31    #ifdef  ALLOW_DEBUG
32    
33  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
34  C  i,j,k,bi,bj,iTracer  :: loop indices  C  i,j,k,bi,bj,iTracer  :: loop indices
# Line 51  C Loop over tracers Line 52  C Loop over tracers
52  C end of tracer loop  C end of tracer loop
53        ENDDO        ENDDO
54    
55    #endif
56  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
57    
58        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22