/[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.4 by cnh, Sat Aug 22 17:51:05 1998 UTC revision 1.5 by cnh, Wed Oct 28 03:11:33 1998 UTC
# Line 70  C     Time Averages of single fields Line 70  C     Time Averages of single fields
70        CALL TIMEAVER_1FLD_XYZ(vVel,  vVeltave,  DDTT, bi, bj, K, myThid)        CALL TIMEAVER_1FLD_XYZ(vVel,  vVeltave,  DDTT, bi, bj, K, myThid)
71    
72  C     Time Averages of "double" fields  C     Time Averages of "double" fields
73        CALL TIMEAVER_2FLD_XYZ(theta, uVel, uttave, 1, DDTT, bi, bj, K, myThid)        CALL TIMEAVER_2FLD_XYZ(theta, uVel, uttave, 1, DDTT,
74        CALL TIMEAVER_2FLD_XYZ(theta, vVel, vttave, 2, DDTT, bi, bj, K, myThid)       & bi, bj, K, myThid)
75          CALL TIMEAVER_2FLD_XYZ(theta, vVel, vttave, 2, DDTT,
76         & bi, bj, K, myThid)
77    
78  C     Keep record of how much time has been integrated over  C     Keep record of how much time has been integrated over
79        TimeAve(k,bi,bj)=TimeAve(k,bi,bj)+DDTT        TimeAve(k,bi,bj)=TimeAve(k,bi,bj)+DDTT
80    
81  C     Time Averages of "intermediate" fields  C     Time Averages of "intermediate" fields
82        DDTT=deltaTclock        DDTT=deltaTclock
83        CALL TIMEAVER_INTER_XYZ(Nr, K13, k13tave, DDTT, bi, bj, K, K, myThid)        CALL TIMEAVER_INTER_XYZ(Nr, K13, k13tave, DDTT,
84        CALL TIMEAVER_INTER_XYZ(Nr, K23, k23tave, DDTT, bi, bj, K, K, myThid)       & bi, bj, K, K, myThid)
85        CALL TIMEAVER_INTER_XYZ(2, wVel, wVeltave, DDTT, bi, bj, K, kUp, myThid)        CALL TIMEAVER_INTER_XYZ(Nr, K23, k23tave, DDTT,
86         & bi, bj, K, K, myThid)
87          CALL TIMEAVER_INTER_XYZ(2, wVel, wVeltave, DDTT,
88         & bi, bj, K, kUp, myThid)
89        IF (TOP_LEVEL)        IF (TOP_LEVEL)
90       &  CALL TIMEAVER_INTER_XY(KapGM, KapGMtave, DDTT, bi, bj, myThid)       &  CALL TIMEAVER_INTER_XY(KapGM, KapGMtave, DDTT, bi, bj, myThid)
91        InterTimeAve(k,bi,bj)=InterTimeAve(k,bi,bj)+DDTT        InterTimeAve(k,bi,bj)=InterTimeAve(k,bi,bj)+DDTT
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22