/[MITgcm]/MITgcm/pkg/timeave/timeave_statvars.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_statvars.F

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

revision 1.6 by jmc, Tue Feb 18 15:37:44 2003 UTC revision 1.7 by jmc, Thu May 1 22:17:42 2003 UTC
# Line 49  C-    Initialize fields for the first ca Line 49  C-    Initialize fields for the first ca
49          CALL TIMEAVE_RESET(TTtave,    Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(TTtave,    Nr, bi, bj, myThid)
50          CALL TIMEAVE_RESET(UUtave,    Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(UUtave,    Nr, bi, bj, myThid)
51          CALL TIMEAVE_RESET(VVtave,    Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(VVtave,    Nr, bi, bj, myThid)
52            CALL TIMEAVE_RESET(UVtave,    Nr, bi, bj, myThid)
53  c       CALL TIMEAVE_RESET(KEtave,    Nr, bi, bj, myThid)  c       CALL TIMEAVE_RESET(KEtave,    Nr, bi, bj, myThid)
54          CALL TIMEAVE_RESET(UTtave,    Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(UTtave,    Nr, bi, bj, myThid)
55          CALL TIMEAVE_RESET(VTtave,    Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(VTtave,    Nr, bi, bj, myThid)
56          CALL TIMEAVE_RESET(WTtave,    Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(WTtave,    Nr, bi, bj, myThid)
57            CALL TIMEAVE_RESET(TdiffRtave,Nr, bi, bj, myThid)
58          CALL TIMEAVE_RESET(phiHydtave,Nr, bi, bj, myThid)          CALL TIMEAVE_RESET(phiHydtave,Nr, bi, bj, myThid)
59          CALL TIMEAVE_RESET(phiHydLowtave,1, bi, bj, myThid)          CALL TIMEAVE_RESET(phiHydLowtave,1, bi, bj, myThid)
60          CALL TIMEAVE_RESET(phiHydLow2Tave,1, bi, bj, myThid)          CALL TIMEAVE_RESET(phiHydLow2Tave,1, bi, bj, myThid)
# Line 88  C-    Time Averages of single fields (no Line 90  C-    Time Averages of single fields (no
90        CALL TIMEAVE_CUMULATE(salttave, salt,  Nr, DDTT, bi, bj, myThid)        CALL TIMEAVE_CUMULATE(salttave, salt,  Nr, DDTT, bi, bj, myThid)
91        CALL TIMEAVE_CUMULATE(uVeltave, uVel,  Nr, DDTT, bi, bj, myThid)        CALL TIMEAVE_CUMULATE(uVeltave, uVel,  Nr, DDTT, bi, bj, myThid)
92        CALL TIMEAVE_CUMULATE(vVeltave, vVel,  Nr, DDTT, bi, bj, myThid)        CALL TIMEAVE_CUMULATE(vVeltave, vVel,  Nr, DDTT, bi, bj, myThid)
93        CALL TIMEAVE_CUMULATE(wVeltave, wVel, Nr,  DDTT, bi, bj, myThid)        CALL TIMEAVE_CUMULATE(wVeltave, wVel,  Nr, DDTT, bi, bj, myThid)
94    
95  C-    Time Averages of "double" fields (no hFactor)  C-    Time Averages of "double" fields (no hFactor)
96        CALL TIMEAVE_CUMUL_2V(Eta2tave, etaN,etaN, 1,  0,        CALL TIMEAVE_CUMUL_2V(Eta2tave, etaN,etaN, 1,  0,
# Line 99  C-    Time Averages of "double" fields ( Line 101  C-    Time Averages of "double" fields (
101       &     DDTT, bi, bj, myThid)       &     DDTT, bi, bj, myThid)
102        CALL TIMEAVE_CUMUL_2V(VVtave, vVel,  vVel, Nr, 0,        CALL TIMEAVE_CUMUL_2V(VVtave, vVel,  vVel, Nr, 0,
103       &     DDTT, bi, bj, myThid)       &     DDTT, bi, bj, myThid)
104          CALL TIMEAVE_CUMUL_2V(UVtave, uVel,  vVel, Nr, 12,
105         &     DDTT, bi, bj, myThid)
106  c     CALL TIMEAVE_CUMUL_KE(KEtave, uVel,  vVel, Nr,  c     CALL TIMEAVE_CUMUL_KE(KEtave, uVel,  vVel, Nr,
107  c    &     DDTT, bi, bj, myThid)  c    &     DDTT, bi, bj, myThid)
108        CALL TIMEAVE_CUMUL_2V(WTtave, theta, wVel, Nr, 3,        CALL TIMEAVE_CUMUL_2V(WTtave, theta, wVel, Nr, 3,
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22