/[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.16 by dfer, Thu Feb 19 01:42:15 2009 UTC revision 1.17 by jmc, Mon Dec 21 00:17:00 2009 UTC
# Line 49  C  ip                   :: ptracer numbe Line 49  C  ip                   :: ptracer numbe
49        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
50        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
51        INTEGER ip        INTEGER ip
52          _RL dummyRL(6)
53  CEOP  CEOP
54    
55        IF ( DIFFERENT_MULTIPLE( PTRACERS_monitorFreq,myTime,deltaTClock )        IF ( DIFFERENT_MULTIPLE( PTRACERS_monitorFreq,myTime,deltaTClock )
# Line 110  C      Print the basic statistics of ptr Line 111  C      Print the basic statistics of ptr
111         DO ip = 1, PTRACERS_numInUse         DO ip = 1, PTRACERS_numInUse
112           WRITE(suff,'(A7,A2)') 'ptracer',PTRACERS_ioLabel(ip)           WRITE(suff,'(A7,A2)') 'ptracer',PTRACERS_ioLabel(ip)
113  c        WRITE(suff,'(A6,I4.4)') 'ptrac', ip  c        WRITE(suff,'(A6,I4.4)') 'ptrac', ip
114           CALL MON_PRINTSTATS_RL(           CALL MON_WRITESTATS_RL(
115       &        Nr, pTracer(1-Olx,1-Oly,1,1,1,ip),       &            Nr, pTracer(1-OLx,1-OLy,1,1,1,ip), suff,
116       &        suff, maskC,hFacC,rA ,drF,myThid)       &            hFacC, maskInC, rA ,drF, dummyRL, myThid )
117         ENDDO         ENDDO
118    
119  C--   Ptracers field monitor finish  C--   Ptracers field monitor finish
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22