/[MITgcm]/MITgcm/pkg/my82/my82_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/my82/my82_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:43:11 2005 UTC revision 1.3 by jmc, Sun May 15 03:04:56 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  C     Dump snapshot of MY82 variables. Line 72  C     Dump snapshot of MY82 variables.
72  C----------------------------------------------------------------  C----------------------------------------------------------------
73    
74        IF (        IF (
75       &     DIFF_BASE_MULTIPLE(baseTime,MYdumpFreq,       &     DIFFERENT_MULTIPLE(MYdumpFreq,
76       &                        myCurrentTime,deltaTClock)       &                        myCurrentTime,deltaTClock)
77       &     ) THEN       &     ) THEN
78                    
# Line 136  C     Initialize averages to zero Line 136  C     Initialize averages to zero
136    
137  C     Time Average MY82 fields  C     Time Average MY82 fields
138        IF ( myIter .EQ. nIter0 .OR.        IF ( myIter .EQ. nIter0 .OR.
139       &     DIFF_BASE_MULTIPLE       &     DIFFERENT_MULTIPLE(MYtaveFreq,myCurrentTime,deltaTClock)
140       &     (baseTime,MYtaveFreq,myCurrentTime,deltaTClock) )       &   ) THEN
      &     THEN  
141         DDTT=0.5*deltaTclock         DDTT=0.5*deltaTclock
142        ELSE        ELSE
143         DDTT=deltaTclock         DDTT=deltaTclock
# Line 160  C     Keep record of how much time has b Line 159  C     Keep record of how much time has b
159    
160  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
161        IF ( myIter.NE.nIter0 .AND.        IF ( myIter.NE.nIter0 .AND.
162       &     DIFF_BASE_MULTIPLE(baseTime,MYtaveFreq,       &     DIFFERENT_MULTIPLE(MYtaveFreq,myCurrentTime,deltaTClock)
      &     myCurrentTime,deltaTClock)  
163       &     ) THEN       &     ) THEN
164                    
165  C     Normalize by integrated time  C     Normalize by integrated time

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22