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

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

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

revision 1.10 by adcroft, Wed Jun 21 19:28:40 2000 UTC revision 1.11 by heimbach, Mon Nov 13 16:10:38 2000 UTC
# Line 56  C      Normalize by integrated time Line 56  C      Normalize by integrated time
56            CALL TIMEAVER_FINAL_XYZ(vVeltave,timeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(vVeltave,timeave,bi,bj,K,myThid)
57            CALL TIMEAVER_FINAL_XYZ(uttave,timeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(uttave,timeave,bi,bj,K,myThid)
58            CALL TIMEAVER_FINAL_XYZ(vttave,timeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(vttave,timeave,bi,bj,K,myThid)
59              CALL TIMEAVER_FINAL_XYZ(k13tave,intertimeave,bi,bj,K,myThid)
60              CALL TIMEAVER_FINAL_XYZ(k23tave,intertimeave,bi,bj,K,myThid)
61            CALL TIMEAVER_FINAL_XYZ(wVeltave,intertimeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(wVeltave,intertimeave,bi,bj,K,myThid)
62            CALL TIMEAVER_FINAL_XYZ(ConvectCountTave,intertimeave,            CALL TIMEAVER_FINAL_XYZ(ConvectCountTave,intertimeave,
63       &                            bi,bj,K,myThid)       &                            bi,bj,K,myThid)
64           ENDDO           ENDDO
65             CALL TIMEAVER_FINAL_XY(KapGMtave,intertimeave,bi,bj,myThid)
66          ENDDO          ENDDO
67         ENDDO         ENDDO
68    
# Line 82  C--     Read IO error counter Line 85  C--     Read IO error counter
85          CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid)
86          CALL WRITE_FLD_XYZ_RL('UTtave.',suff,uttave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('UTtave.',suff,uttave,myIter,myThid)
87          CALL WRITE_FLD_XYZ_RL('VTtave.',suff,vttave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('VTtave.',suff,vttave,myIter,myThid)
88            CALL WRITE_FLD_XYZ_RL('K13tave.',suff,k13tave,myIter,myThid)
89            CALL WRITE_FLD_XYZ_RL('K23tave.',suff,k23tave,myIter,myThid)
90          CALL WRITE_FLD_XYZ_RL('WTtave.',suff,wVeltave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('WTtave.',suff,wVeltave,myIter,myThid)
91            CALL WRITE_FLD_XY_RL('KapGMtave.',suff,KapGMtave,myIter,myThid)
92          CALL WRITE_FLD_XYZ_RL('ConvectCntTave.',suff,ConvectCountTave,          CALL WRITE_FLD_XYZ_RL('ConvectCntTave.',suff,ConvectCountTave,
93       &                        myIter,myThid)       &                        myIter,myThid)
94          writeBinaryPrec = prevPrec          writeBinaryPrec = prevPrec
# Line 121  C      Reset the averages to zero Line 127  C      Reset the averages to zero
127            CALL TIMEAVER_INI_XYZ(vVeltave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(vVeltave, bi,bj,K,myThid)
128            CALL TIMEAVER_INI_XYZ(uttave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(uttave, bi,bj,K,myThid)
129            CALL TIMEAVER_INI_XYZ(vttave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(vttave, bi,bj,K,myThid)
130              CALL TIMEAVER_INI_XYZ(k13tave, bi,bj,K,myThid)
131              CALL TIMEAVER_INI_XYZ(k23tave, bi,bj,K,myThid)
132            CALL TIMEAVER_INI_XYZ(wVeltave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(wVeltave, bi,bj,K,myThid)
133              IF (K.EQ.1) CALL TIMEAVER_INI_XY(KapGMtave, bi,bj,myThid)
134            CALL TIMEAVER_INI_XYZ(ConvectCountTave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(ConvectCountTave, bi,bj,K,myThid)
135            TimeAve(k,bi,bj)=0.            TimeAve(k,bi,bj)=0.
136            InterTimeAve(k,bi,bj)=0.            InterTimeAve(k,bi,bj)=0.
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22