/[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.5 by jmc, Tue Jan 9 22:27:12 2007 UTC revision 1.6 by jmc, Mon Nov 5 18:48:04 2007 UTC
# Line 18  C !USES: =============================== Line 18  C !USES: ===============================
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
21  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
22    #include "PTRACERS_FIELDS.h"
23    
24  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
25  C  myThid               :: thread number  C  myThid               :: thread number
# Line 47  C Loop over tracers Line 48  C Loop over tracers
48       &   gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)       &   gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
49         WRITE(strng(1:9),'(a7,i2.2)') 'GNm1TRC',iTracer         WRITE(strng(1:9),'(a7,i2.2)') 'GNm1TRC',iTracer
50         CALL DEBUG_STATS_RL(Nr,         CALL DEBUG_STATS_RL(Nr,
51       &   gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)       &   gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
52    
53  C end of tracer loop  C end of tracer loop
54        ENDDO        ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22