/[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.6 by mlosch, Wed Dec 1 22:54:02 2004 UTC revision 1.7 by jmc, Wed Apr 6 18:45:48 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  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
40        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_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 (DIFFERENT_MULTIPLE(        IF (DIFF_BASE_MULTIPLE(
58       &     PTRACERS_monitorFreq,myTime,myTime-dT)) THEN       &     baseTime,PTRACERS_monitorFreq,myTime,dT)) THEN
59    
60  C     Ptracers field monitor start  C     Ptracers field monitor start
61         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22