/[MITgcm]/MITgcm/diags/src/write_time_averages.F
ViewVC logotype

Diff of /MITgcm/diags/src/write_time_averages.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by adcroft, Thu Jul 16 15:23:43 1998 UTC revision 1.4 by cnh, Sat Aug 22 17:51:05 1998 UTC
# Line 47  C     Final Time Averages and Dump Files Line 47  C     Final Time Averages and Dump Files
47  C      Normalize by integrated time  C      Normalize by integrated time
48         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
49          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
50           DO k=1,Nz           DO k=1,Nr
51            CALL TIMEAVER_FINAL_XYZ(thetatave,timeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(thetatave,timeave,bi,bj,K,myThid)
52            CALL TIMEAVER_FINAL_XYZ(salttave,timeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(salttave,timeave,bi,bj,K,myThid)
53            CALL TIMEAVER_FINAL_XYZ(uVeltave,timeave,bi,bj,K,myThid)            CALL TIMEAVER_FINAL_XYZ(uVeltave,timeave,bi,bj,K,myThid)
# Line 107  C--     Check for IO errors Line 107  C--     Check for IO errors
107    
108         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
109          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
110           DO k=1,Nz           DO k=1,Nr
111    
112  C      Reset the averages to zero  C      Reset the averages to zero
113            CALL TIMEAVER_INI_XYZ(thetatave, bi,bj,K,myThid)            CALL TIMEAVER_INI_XYZ(thetatave, bi,bj,K,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22