/[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.2 by mlosch, Mon Nov 29 00:38:37 2004 UTC revision 1.3 by mlosch, Mon Nov 29 03:36:12 2004 UTC
# Line 49  C  ip                   :: ptracer numbe Line 49  C  ip                   :: ptracer numbe
49        _RL dT        _RL dT
50        INTEGER time_as_int        INTEGER time_as_int
51        integer ip        integer ip
 CML      integer i,j,k,bi,bj  
 CML      _RL tmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
52  CEOP  CEOP
53    
54        dT=deltaTclock        dT=deltaTclock
# Line 58  CEOP Line 56  CEOP
56        IF (myIter.LE.nIter0+1.OR.DIFFERENT_MULTIPLE(        IF (myIter.LE.nIter0+1.OR.DIFFERENT_MULTIPLE(
57       &     PTRACERS_monitorFreq,myTime,myTime-dT)) THEN       &     PTRACERS_monitorFreq,myTime,myTime-dT)) THEN
58    
 CML       mon_write_stdout = .TRUE.  
   
59  C     Ptracers field monitor start  C     Ptracers field monitor start
60         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
61  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22