/[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.3 by jmc, Thu Jan 3 16:25:44 2002 UTC revision 1.4 by mlosch, Wed Sep 18 16:38:02 2002 UTC
# Line 79  c         CALL TIMEAVE_NORMALIZ(hFacStav Line 79  c         CALL TIMEAVE_NORMALIZ(hFacStav
79            CALL TIMEAVE_NORMALIZ(WTtave,   TimeAve_full,Nr,bi,bj,myThid)            CALL TIMEAVE_NORMALIZ(WTtave,   TimeAve_full,Nr,bi,bj,myThid)
80            CALL TIMEAVE_NORMALIZ(phiHydtave,TimeAve_full,Nr,            CALL TIMEAVE_NORMALIZ(phiHydtave,TimeAve_full,Nr,
81       &                            bi,bj,myThid)       &                            bi,bj,myThid)
82              CALL TIMEAVE_NORMALIZ(phiHydLowtave,TimeAve_full,1,
83         &                            bi,bj,myThid)
84              CALL TIMEAVE_NORMALIZ(phiHydLow2Tave,TimeAve_full,1,
85         &                            bi,bj,myThid)
86            CALL TIMEAVE_NORMALIZ(ConvectCountTave,TimeAve_full,Nr,            CALL TIMEAVE_NORMALIZ(ConvectCountTave,TimeAve_full,Nr,
87       &                            bi,bj,myThid)       &                            bi,bj,myThid)
88          ENDDO          ENDDO
# Line 99  c      prevPrec = writeBinaryPrec Line 103  c      prevPrec = writeBinaryPrec
103  c      writeBinaryPrec = precFloat32  c      writeBinaryPrec = precFloat32
104         CALL WRITE_FLD_XY_RL('ETAtave.',suff,etatave,myIter,myThid)         CALL WRITE_FLD_XY_RL('ETAtave.',suff,etatave,myIter,myThid)
105         CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave,myIter,myThid)         CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave,myIter,myThid)
106           CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave,
107         &      myIter,myThid)
108           CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave,
109         &      myIter,myThid)
110    
111         CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)
112         CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)         CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22