/[MITgcm]/MITgcm/diags/src/do_time_averages.F
ViewVC logotype

Diff of /MITgcm/diags/src/do_time_averages.F

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

revision 1.13 by jmc, Wed Feb 14 22:15:04 2001 UTC revision 1.14 by jmc, Thu Feb 15 19:01:39 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5        SUBROUTINE DO_TIME_AVERAGES(        SUBROUTINE DO_TIME_AVERAGES(
6       I     myTime, myIter, bi, bj, myThid)       I     myTime, myIter, bi, bj, myThid)
# Line 75  C     Keep record of how much time has b Line 75  C     Keep record of how much time has b
75        TimeAve_half(k,bi,bj)=TimeAve_half(k,bi,bj)+DDTT        TimeAve_half(k,bi,bj)=TimeAve_half(k,bi,bj)+DDTT
76    
77  C     Time Averages of "intermediate" fields  C     Time Averages of "intermediate" fields
78        IF ( myIter .NE. 0 ) THEN        IF ( myIter .NE. nIter0 ) THEN
79           CALL TIMEAVER_1FLD_XYZ(wVel,  wVeltave,  deltaTclock,           CALL TIMEAVER_1FLD_XYZ(wVel,  wVeltave,  deltaTclock,
80       &                          bi, bj, K, myThid)       &                          bi, bj, K, myThid)
81           TimeAve_full(k,bi,bj)=TimeAve_full(k,bi,bj)+deltaTclock           TimeAve_full(k,bi,bj)=TimeAve_full(k,bi,bj)+deltaTclock
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22