/[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.1 by mlosch, Thu Sep 16 11:28:16 2004 UTC revision 1.2 by jmc, Wed Apr 6 18:44:50 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  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
65        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_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     &     DIFFERENT_MULTIPLE(OPPSdumpFreq,myCurrentTime,  CML     &     DIFF_BASE_MULTIPLE(baseTime,OPPSdumpFreq,
76  CML     &     myCurrentTime-deltaTClock)  CML     &     myCurrentTime,deltaTClock)
77  CML     &     ) THEN  CML     &     ) THEN
78  CML          CML        
79  CML       if (OPPSwriteState) then  CML       if (OPPSwriteState) then
# 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       &     DIFFERENT_MULTIPLE       &     DIFF_BASE_MULTIPLE
121       &     (OPPStaveFreq,myCurrentTime,myCurrentTime-deltaTClock) )       &     (baseTime,OPPStaveFreq,myCurrentTime,deltaTClock) )
122       &     THEN       &     THEN
123         DDTT=0.5*deltaTclock         DDTT=0.5*deltaTclock
124        ELSE        ELSE
# Line 135  C     Keep record of how much time has b Line 135  C     Keep record of how much time has b
135    
136  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
137        IF ( myIter.NE.nIter0 .AND.        IF ( myIter.NE.nIter0 .AND.
138       &     DIFFERENT_MULTIPLE(OPPStaveFreq,myCurrentTime,       &     DIFF_BASE_MULTIPLE(baseTime,OPPStaveFreq,
139       &     myCurrentTime-deltaTClock)       &     myCurrentTime,deltaTClock)
140       &     ) THEN       &     ) THEN
141                    
142  C     Normalize by integrated time  C     Normalize by integrated time
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22