/[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.2 by adcroft, Wed Jul 15 22:02:50 1998 UTC revision 1.3 by adcroft, Thu Jul 16 15:23:43 1998 UTC
# Line 58  C      Normalize by integrated time Line 58  C      Normalize by integrated time
58            CALL TIMEAVER_FINAL_XYZ(k23tave,intertimeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(k23tave,intertimeave,bi,bj,K,myThid)
59            CALL TIMEAVER_FINAL_XYZ(wVeltave,intertimeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(wVeltave,intertimeave,bi,bj,K,myThid)
60           ENDDO           ENDDO
61             CALL TIMEAVER_FINAL_XY(KapGMtave,intertimeave,bi,bj,myThid)
62          ENDDO          ENDDO
63         ENDDO         ENDDO
64    
# Line 81  C--     Read IO error counter Line 82  C--     Read IO error counter
82          CALL WRITE_FLD_XYZ_RL('K13tave.',suff,k13tave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('K13tave.',suff,k13tave,myIter,myThid)
83          CALL WRITE_FLD_XYZ_RL('K23tave.',suff,k23tave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('K23tave.',suff,k23tave,myIter,myThid)
84          CALL WRITE_FLD_XYZ_RL('WTtave.',suff,wVeltave,myIter,myThid)          CALL WRITE_FLD_XYZ_RL('WTtave.',suff,wVeltave,myIter,myThid)
85            CALL WRITE_FLD_XY_RL('KapGMtave.',suff,KapGMtave,myIter,myThid)
86          writeBinaryPrec = prevPrec          writeBinaryPrec = prevPrec
87  C--     Reread IO error counter  C--     Reread IO error counter
88          endIOErrCount = IO_ERRCOUNT(myThid)          endIOErrCount = IO_ERRCOUNT(myThid)
# Line 117  C      Reset the averages to zero Line 119  C      Reset the averages to zero
119            CALL TIMEAVER_INI_XYZ(k13tave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(k13tave, bi,bj,K,myThid)
120            CALL TIMEAVER_INI_XYZ(k23tave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(k23tave, bi,bj,K,myThid)
121            CALL TIMEAVER_INI_XYZ(wVeltave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(wVeltave, bi,bj,K,myThid)
122              IF (K.EQ.1) CALL TIMEAVER_INI_XY(KapGMtave, bi,bj,myThid)
123            TimeAve(k,bi,bj)=0.            TimeAve(k,bi,bj)=0.
124            InterTimeAve(k,bi,bj)=0.            InterTimeAve(k,bi,bj)=0.
125    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22