/[MITgcm]/MITgcm/pkg/timeave/timeave_statv_write.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_statv_write.F

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

revision 1.16 by adcroft, Fri Mar 5 22:41:08 2004 UTC revision 1.17 by adcroft, Thu Apr 29 16:02:21 2004 UTC
# Line 69  C-     Normalize by integrated time Line 69  C-     Normalize by integrated time
69            CALL TIMEAVE_NORMALIZ(WTtave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(WTtave,   TimeAve_half,Nr,bi,bj,myThid)
70            CALL TIMEAVE_NORMALIZ(UStave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(UStave,   TimeAve_half,Nr,bi,bj,myThid)
71            CALL TIMEAVE_NORMALIZ(VStave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(VStave,   TimeAve_half,Nr,bi,bj,myThid)
72              CALL TIMEAVE_NORMALIZ(WStave,   TimeAve_half,Nr,bi,bj,myThid)
73  #ifndef HRCUBE  #ifndef HRCUBE
74            CALL TIMEAVE_NORMALIZ(Eta2tave, TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(Eta2tave, TimeAve_half,1 ,bi,bj,myThid)
75            CALL TIMEAVE_NORMALIZ(TTtave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(TTtave,   TimeAve_half,Nr,bi,bj,myThid)
# Line 131  c      writeBinaryPrec = precFloat32 Line 132  c      writeBinaryPrec = precFloat32
132         CALL WRITE_FLD_XYZ_RL('WTtave.',suff,WTtave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('WTtave.',suff,WTtave,myIter,myThid)
133         CALL WRITE_FLD_XYZ_RL('UStave.',suff,UStave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('UStave.',suff,UStave,myIter,myThid)
134         CALL WRITE_FLD_XYZ_RL('VStave.',suff,VStave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('VStave.',suff,VStave,myIter,myThid)
135           CALL WRITE_FLD_XYZ_RL('WStave.',suff,WStave,myIter,myThid)
136  #ifndef HRCUBE  #ifndef HRCUBE
137         CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid)
138         CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22