/[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.7 by jmc, Wed Apr 6 18:45:48 2005 UTC revision 1.8 by jmc, Sun May 15 03:06:01 2005 UTC
# Line 36  C  myTime               :: current time Line 36  C  myTime               :: current time
36        INTEGER myThid        INTEGER myThid
37    
38  C     === Functions ====  C     === Functions ====
39        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
40        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
41    
42  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
43  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
# Line 54  CEOP Line 54  CEOP
54    
55        dT=deltaTclock        dT=deltaTclock
56    
57        IF (DIFF_BASE_MULTIPLE(        IF ( DIFFERENT_MULTIPLE( PTRACERS_monitorFreq,myTime,dT ) ) THEN
58       &     baseTime,PTRACERS_monitorFreq,myTime,dT)) THEN  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
59    
60  C     Ptracers field monitor start  C     Ptracers field monitor start
61         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22