/[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.9 by mlosch, Tue Oct 11 08:35:36 2005 UTC revision 1.10 by cnh, Tue Nov 8 15:53:41 2005 UTC
# Line 60  CEOP Line 60  CEOP
60  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
61         mon_write_stdout = .FALSE.         mon_write_stdout = .FALSE.
62         mon_write_mnc    = .FALSE.         mon_write_mnc    = .FALSE.
63           _BARRIER
64    
65  C     Ptracers field monitor start  C     Ptracers field monitor start
66         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
# Line 101  C     for ptracers as for the dynamics v Line 102  C     for ptracers as for the dynamics v
102  C       Print the basic statistics of ptracer variables  C       Print the basic statistics of ptracer variables
103         CALL MON_SET_PREF('trcstat_',myThid)         CALL MON_SET_PREF('trcstat_',myThid)
104         DO ip = 1, PTRACERS_numInUse         DO ip = 1, PTRACERS_numInUse
105             _BEGIN_MASTER(myThid)
106           WRITE(suff,'(A7,I2.2)') 'ptracer',ip           WRITE(suff,'(A7,I2.2)') 'ptracer',ip
107             _END_MASTER(myThid)
108             _BARRIER
109           CALL MON_PRINTSTATS_RL(           CALL MON_PRINTSTATS_RL(
110       &        Nr, ptracer(1-Olx,1-Oly,1,1,1,ip),       &        Nr, ptracer(1-Olx,1-Oly,1,1,1,ip),
111       &        suff, maskC,hFacC,rA ,drF,myThid)       &        suff, maskC,hFacC,rA ,drF,myThid)
112         ENDDO         ENDDO
113    
114         IF (mon_write_stdout) THEN         IF (PTRACERS_monitor_stdio) THEN
115  C     Ptracers field monitor finish  C     Ptracers field monitor finish
116          _BEGIN_MASTER(myThid)          _BEGIN_MASTER(myThid)
117  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22