/[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.15 by dimitri, Sun Jan 25 00:31:52 2004 UTC revision 1.17 by adcroft, Thu Apr 29 16:02:21 2004 UTC
# Line 67  C-     Normalize by integrated time Line 67  C-     Normalize by integrated time
67            CALL TIMEAVE_NORMALIZ(UTtave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(UTtave,   TimeAve_half,Nr,bi,bj,myThid)
68            CALL TIMEAVE_NORMALIZ(VTtave,   TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(VTtave,   TimeAve_half,Nr,bi,bj,myThid)
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)
71              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 127  c      writeBinaryPrec = precFloat32 Line 130  c      writeBinaryPrec = precFloat32
130         CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid)
131         CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid)
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)
134           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.15  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22