/[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.10 by heimbach, Mon Nov 13 16:10:38 2000 UTC revision 1.11 by adcroft, Fri Feb 2 21:04:47 2001 UTC
# Line 2  Line 2 
2    
3        SUBROUTINE DO_TIME_AVERAGES(        SUBROUTINE DO_TIME_AVERAGES(
4       I     myCurrentTime, myIter, bi, bj, K, kUp, kDown,       I     myCurrentTime, myIter, bi, bj, K, kUp, kDown,
5       I     K13,K23,wVel,KapGM,ConvectCount,       I     K13,K23,KapGM,ConvectCount,
6       I     myThid)       I     myThid)
7  C     /==========================================================\  C     /==========================================================\
8  C     | SUBROUTINE DO_TIME_AVERAGES                              |  C     | SUBROUTINE DO_TIME_AVERAGES                              |
# Line 30  C     myCurrentTime - Current time of si Line 30  C     myCurrentTime - Current time of si
30        _RL     myCurrentTime        _RL     myCurrentTime
31        _RL K13   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL K13   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
32        _RL K23   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL K23   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
       _RL wVel  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2)  
33        _RL KapGM (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL KapGM (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
34        _RL ConvectCount (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL ConvectCount (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
35    
# Line 46  C     Initialize fields for the first ca Line 45  C     Initialize fields for the first ca
45           CALL TIMEAVER_INI_XYZ(salttave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(salttave, bi, bj, K, myThid)
46           CALL TIMEAVER_INI_XYZ(uVeltave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(uVeltave, bi, bj, K, myThid)
47           CALL TIMEAVER_INI_XYZ(vVeltave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(vVeltave, bi, bj, K, myThid)
48             CALL TIMEAVER_INI_XYZ(wVeltave, bi, bj, K, myThid)
49           CALL TIMEAVER_INI_XYZ(uttave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(uttave, bi, bj, K, myThid)
50           CALL TIMEAVER_INI_XYZ(vttave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(vttave, bi, bj, K, myThid)
51           CALL TIMEAVER_INI_XYZ(k13tave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(k13tave, bi, bj, K, myThid)
52           CALL TIMEAVER_INI_XYZ(k23tave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(k23tave, bi, bj, K, myThid)
          CALL TIMEAVER_INI_XYZ(wVeltave, bi, bj, K, myThid)  
53           IF (TOP_LEVEL) CALL TIMEAVER_INI_XY(KapGMtave, bi, bj, myThid)           IF (TOP_LEVEL) CALL TIMEAVER_INI_XY(KapGMtave, bi, bj, myThid)
54           CALL TIMEAVER_INI_XYZ(ConvectCountTave, bi, bj, K, myThid)           CALL TIMEAVER_INI_XYZ(ConvectCountTave, bi, bj, K, myThid)
55           TimeAve(k,bi,bj)=0.           TimeAve(k,bi,bj)=0.
# Line 71  C     Time Averages of single fields Line 70  C     Time Averages of single fields
70        CALL TIMEAVER_1FLD_XYZ(salt,  salttave,  DDTT, bi, bj, K, myThid)        CALL TIMEAVER_1FLD_XYZ(salt,  salttave,  DDTT, bi, bj, K, myThid)
71        CALL TIMEAVER_1FLD_XYZ(uVel,  uVeltave,  DDTT, bi, bj, K, myThid)        CALL TIMEAVER_1FLD_XYZ(uVel,  uVeltave,  DDTT, bi, bj, K, myThid)
72        CALL TIMEAVER_1FLD_XYZ(vVel,  vVeltave,  DDTT, bi, bj, K, myThid)        CALL TIMEAVER_1FLD_XYZ(vVel,  vVeltave,  DDTT, bi, bj, K, myThid)
73          CALL TIMEAVER_1FLD_XYZ(wVel,  wVeltave,  DDTT, bi, bj, K, myThid)
74    
75  C     Time Averages of "double" fields  C     Time Averages of "double" fields
76        CALL TIMEAVER_2FLD_XYZ(theta, uVel, uttave, 1, DDTT,        CALL TIMEAVER_2FLD_XYZ(theta, uVel, uttave, 1, DDTT,
# Line 87  C     Time Averages of "intermediate" fi Line 87  C     Time Averages of "intermediate" fi
87       & bi, bj, K, K, myThid)       & bi, bj, K, K, myThid)
88        CALL TIMEAVER_INTER_XYZ(Nr, K23, k23tave, DDTT,        CALL TIMEAVER_INTER_XYZ(Nr, K23, k23tave, DDTT,
89       & bi, bj, K, K, myThid)       & bi, bj, K, K, myThid)
       CALL TIMEAVER_INTER_XYZ(2, wVel, wVeltave, DDTT,  
      & bi, bj, K, kUp, myThid)  
90        IF (TOP_LEVEL)        IF (TOP_LEVEL)
91       &  CALL TIMEAVER_INTER_XY(KapGM, KapGMtave, DDTT, bi, bj, myThid)       &  CALL TIMEAVER_INTER_XY(KapGM, KapGMtave, DDTT, bi, bj, myThid)
92        InterTimeAve(k,bi,bj)=InterTimeAve(k,bi,bj)+DDTT        InterTimeAve(k,bi,bj)=InterTimeAve(k,bi,bj)+DDTT
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22