/[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.32 by edhill, Thu Sep 29 12:19:52 2005 UTC revision 1.33 by jmc, Fri Nov 4 01:35:33 2005 UTC
# Line 44  C     suff         :: Hold suffix part o Line 44  C     suff         :: Hold suffix part o
44  C     TimeAve      :: total time over average  C     TimeAve      :: total time over average
45  C     useVariableK :: T when vertical diffusion is not constant  C     useVariableK :: T when vertical diffusion is not constant
46        LOGICAL useVariableK        LOGICAL useVariableK
       INTEGER prevPrec  
47        CHARACTER*(MAX_LEN_FNAM) suff        CHARACTER*(MAX_LEN_FNAM) suff
48        INTEGER bi,bj,k        INTEGER bi,bj
49        INTEGER beginIOErrCount        INTEGER beginIOErrCount
50        INTEGER endIOErrCount        INTEGER endIOErrCount
51        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
       INTEGER thisdate(4), prevdate(4)  
52        LOGICAL dumpFiles        LOGICAL dumpFiles
53    #ifdef ALLOW_MNC
54        CHARACTER*(1) pf        CHARACTER*(1) pf
55    #endif
56    #ifdef ALLOW_CAL
57          INTEGER thisdate(4), prevdate(4)
58    #endif
59    
60  C     Final Time Averages and Dump Files if needed  C     Final Time Averages and Dump Files if needed
61        dumpFiles = .FALSE.        dumpFiles = .FALSE.
# Line 147  C         Set IO "context" for writing s Line 150  C         Set IO "context" for writing s
150  #endif  #endif
151  C         Read IO error counter  C         Read IO error counter
152            beginIOErrCount = IO_ERRCOUNT(myThid)            beginIOErrCount = IO_ERRCOUNT(myThid)
 c         prevPrec = writeBinaryPrec  
 c         writeBinaryPrec = precFloat32  
153            CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave  ,myIter,myThid)            CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave  ,myIter,myThid)
154            CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)            CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)
155            CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)            CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)
# Line 206  C         CALL WRITE_FLD_XYZ_RL('hFacWta Line 207  C         CALL WRITE_FLD_XYZ_RL('hFacWta
207  C         CALL WRITE_FLD_XYZ_RL('hFacStave.',suff,hFacStave,myIter,myThid)  C         CALL WRITE_FLD_XYZ_RL('hFacStave.',suff,hFacStave,myIter,myThid)
208  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
209                        
 C         writeBinaryPrec = prevPrec  
210  C         Reread IO error counter  C         Reread IO error counter
211            endIOErrCount = IO_ERRCOUNT(myThid)            endIOErrCount = IO_ERRCOUNT(myThid)
212    
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22