/[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.10 by dimitri, Thu Oct 23 07:14:49 2003 UTC revision 1.13 by dimitri, Thu Nov 13 06:35:15 2003 UTC
# Line 54  C-    Final Time Averages and Dump Files Line 54  C-    Final Time Averages and Dump Files
54         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
55          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
56  C-     Normalize by integrated time  C-     Normalize by integrated time
57            CALL TIMEAVE_NORMALIZ(uFluxtave,TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(uFluxtave,TimeAve_full,1 ,bi,bj,myThid)
58            CALL TIMEAVE_NORMALIZ(vFluxtave,TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(vFluxtave,TimeAve_full,1 ,bi,bj,myThid)
59            CALL TIMEAVE_NORMALIZ(tFluxtave,TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(tFluxtave,TimeAve_full,1 ,bi,bj,myThid)
60            CALL TIMEAVE_NORMALIZ(sFluxtave,TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(sFluxtave,TimeAve_full,1 ,bi,bj,myThid)
61            CALL TIMEAVE_NORMALIZ(etatave,  TimeAve_half,1 ,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(etatave,  TimeAve_half,1 ,bi,bj,myThid)
62            CALL TIMEAVE_NORMALIZ(thetatave,TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(thetatave,TimeAve_half,Nr,bi,bj,myThid)
63            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid)
# Line 84  c         CALL TIMEAVE_NORMALIZ(hFacStav Line 84  c         CALL TIMEAVE_NORMALIZ(hFacStav
84    
85            CALL TIMEAVE_NORMALIZ(TdiffRtave,TimeAve_full,Nr,            CALL TIMEAVE_NORMALIZ(TdiffRtave,TimeAve_full,Nr,
86       &                            bi,bj,myThid)       &                            bi,bj,myThid)
87  #ifndef DISABLE_MOM_VECINV  #ifdef ALLOW_MOM_VECINV
88            CALL TIMEAVE_NORMALIZ(uZetatave,TimeAve_full,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(uZetatave,TimeAve_full,Nr,bi,bj,myThid)
89            CALL TIMEAVE_NORMALIZ(vZetatave,TimeAve_full,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(vZetatave,TimeAve_full,Nr,bi,bj,myThid)
90  #endif  #endif
# Line 135  c      CALL WRITE_FLD_XYZ_RL('KEtave.',s Line 135  c      CALL WRITE_FLD_XYZ_RL('KEtave.',s
135    
136         IF (useVariableK)         IF (useVariableK)
137       & CALL WRITE_FLD_XYZ_RL('Tdiftave.',suff,TdiffRtave,myIter,myThid)       & CALL WRITE_FLD_XYZ_RL('Tdiftave.',suff,TdiffRtave,myIter,myThid)
138  #ifndef DISABLE_MOM_VECINV  #ifdef ALLOW_MOM_VECINV
139         IF (vectorInvariantMomentum) THEN         IF (vectorInvariantMomentum) THEN
140           CALL WRITE_FLD_XYZ_RL('uZtave.',suff,uZetatave,myIter,myThid)           CALL WRITE_FLD_XYZ_RL('uZtave.',suff,uZetatave,myIter,myThid)
141           CALL WRITE_FLD_XYZ_RL('vZtave.',suff,vZetatave,myIter,myThid)           CALL WRITE_FLD_XYZ_RL('vZtave.',suff,vZetatave,myIter,myThid)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22