/[MITgcm]/MITgcm/pkg/opps/opps_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/opps/opps_do_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Wed Apr 6 18:44:50 2005 UTC revision 1.3 by jmc, Sun May 15 03:04:57 2005 UTC
# Line 61  C     myThid -  Number of this instance Line 61  C     myThid -  Number of this instance
61  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
62  C     == Local variables ==  C     == Local variables ==
63        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
64        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
65        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
66        INTEGER bi, bj, K        INTEGER bi, bj, K
67        _RL DDTT        _RL DDTT
68  CEOP  CEOP
# Line 72  CMLC     Dump snapshot of OPPS variables Line 72  CMLC     Dump snapshot of OPPS variables
72  CMLC----------------------------------------------------------------  CMLC----------------------------------------------------------------
73  CML  CML
74  CML      IF (  CML      IF (
75  CML     &     DIFF_BASE_MULTIPLE(baseTime,OPPSdumpFreq,  CML     &     DIFFERENT_MULTIPLE(OPPSdumpFreq,
76  CML     &     myCurrentTime,deltaTClock)  CML     &     myCurrentTime,deltaTClock)
77  CML     &     ) THEN  CML     &     ) THEN
78  CML          CML        
# Line 117  C     Initialize averages to zero Line 117  C     Initialize averages to zero
117    
118  C     Time Average OPPS fields  C     Time Average OPPS fields
119        IF ( myIter .EQ. nIter0 .OR.        IF ( myIter .EQ. nIter0 .OR.
120       &     DIFF_BASE_MULTIPLE       &     DIFFERENT_MULTIPLE(OPPStaveFreq,myCurrentTime,deltaTClock)
121       &     (baseTime,OPPStaveFreq,myCurrentTime,deltaTClock) )       &   ) THEN
      &     THEN  
122         DDTT=0.5*deltaTclock         DDTT=0.5*deltaTclock
123        ELSE        ELSE
124         DDTT=deltaTclock         DDTT=deltaTclock
# Line 135  C     Keep record of how much time has b Line 134  C     Keep record of how much time has b
134    
135  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
136        IF ( myIter.NE.nIter0 .AND.        IF ( myIter.NE.nIter0 .AND.
137       &     DIFF_BASE_MULTIPLE(baseTime,OPPStaveFreq,       &     DIFFERENT_MULTIPLE(OPPStaveFreq,
138       &     myCurrentTime,deltaTClock)       &     myCurrentTime,deltaTClock)
139       &     ) THEN       &     ) THEN
140                    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22