--- MITgcm/pkg/timeave/timeave_statv_write.F 2003/11/04 19:51:54 1.12 +++ MITgcm/pkg/timeave/timeave_statv_write.F 2003/11/13 06:35:15 1.13 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/timeave/timeave_statv_write.F,v 1.12 2003/11/04 19:51:54 edhill Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/timeave/timeave_statv_write.F,v 1.13 2003/11/13 06:35:15 dimitri Exp $ C $Name: $ #include "TIMEAVE_OPTIONS.h" @@ -54,6 +54,10 @@ DO bj = myByLo(myThid), myByHi(myThid) DO bi = myBxLo(myThid), myBxHi(myThid) C- Normalize by integrated time + CALL TIMEAVE_NORMALIZ(uFluxtave,TimeAve_full,1 ,bi,bj,myThid) + CALL TIMEAVE_NORMALIZ(vFluxtave,TimeAve_full,1 ,bi,bj,myThid) + CALL TIMEAVE_NORMALIZ(tFluxtave,TimeAve_full,1 ,bi,bj,myThid) + CALL TIMEAVE_NORMALIZ(sFluxtave,TimeAve_full,1 ,bi,bj,myThid) CALL TIMEAVE_NORMALIZ(etatave, TimeAve_half,1 ,bi,bj,myThid) CALL TIMEAVE_NORMALIZ(thetatave,TimeAve_half,Nr,bi,bj,myThid) CALL TIMEAVE_NORMALIZ(salttave, TimeAve_half,Nr,bi,bj,myThid) @@ -108,8 +112,12 @@ beginIOErrCount = IO_ERRCOUNT(myThid) c prevPrec = writeBinaryPrec c writeBinaryPrec = precFloat32 - CALL WRITE_FLD_XY_RL('ETAtave.',suff,etatave,myIter,myThid) - CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave,myIter,myThid) + CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave,myIter,myThid) + CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave,myIter,myThid) + CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave,myIter,myThid) + CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave,myIter,myThid) + CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave ,myIter,myThid) + CALL WRITE_FLD_XY_RL('Eta2tave.' ,suff,Eta2tave ,myIter,myThid) CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid) CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)