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

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

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

revision 1.13 by jmc, Tue Oct 17 18:22:33 2006 UTC revision 1.14 by jmc, Mon Nov 5 18:48:04 2007 UTC
# Line 20  C !USES: =============================== Line 20  C !USES: ===============================
20  #include "PARAMS.h"  #include "PARAMS.h"
21  #include "GRID.h"  #include "GRID.h"
22  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
23  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
24    #include "PTRACERS_FIELDS.h"
25  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
26  #include "MONITOR.h"  #include "MONITOR.h"
27  #endif  #endif
# Line 110  C      Print the basic statistics of ptr Line 111  C      Print the basic statistics of ptr
111           WRITE(suff,'(A7,I2.2)') 'ptracer',ip           WRITE(suff,'(A7,I2.2)') 'ptracer',ip
112  c        WRITE(suff,'(A7,I3.3)') 'ptrac_', ip  c        WRITE(suff,'(A7,I3.3)') 'ptrac_', ip
113           CALL MON_PRINTSTATS_RL(           CALL MON_PRINTSTATS_RL(
114       &        Nr, ptracer(1-Olx,1-Oly,1,1,1,ip),       &        Nr, pTracer(1-Olx,1-Oly,1,1,1,ip),
115       &        suff, maskC,hFacC,rA ,drF,myThid)       &        suff, maskC,hFacC,rA ,drF,myThid)
116         ENDDO         ENDDO
117    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22