/[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.4 by jmc, Thu Dec 15 01:12:17 2005 UTC
# Line 18  C !USES: =============================== Line 18  C !USES: ===============================
18        IMPLICIT NONE        IMPLICIT NONE
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21    #include "PTRACERS_SIZE.h"
22  #include "PTRACERS.h"  #include "PTRACERS.h"
23    
24  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 28  C !OUTPUT PARAMETERS: ================== Line 29  C !OUTPUT PARAMETERS: ==================
29  C  none  C  none
30    
31  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
32    #ifdef  ALLOW_DEBUG
33    
34  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
35  C  i,j,k,bi,bj,iTracer  :: loop indices  C  i,j,k,bi,bj,iTracer  :: loop indices
36        INTEGER i,j,iTracer        INTEGER iTracer
37        CHARACTER*(9) strng        CHARACTER*(9) strng
38  CEOP  CEOP
39    
# Line 51  C Loop over tracers Line 53  C Loop over tracers
53  C end of tracer loop  C end of tracer loop
54        ENDDO        ENDDO
55    
56    #endif
57  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
58    
59        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22