/[MITgcm]/MITgcm/model/src/do_statevars_tave.F
ViewVC logotype

Diff of /MITgcm/model/src/do_statevars_tave.F

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

revision 1.3 by jmc, Sat Jan 2 23:49:25 2010 UTC revision 1.4 by jmc, Sun Jan 3 00:00:52 2010 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12    
13  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
14  C     *==========================================================*  C     *==========================================================*
15  C     | SUBROUTINE DO_STATEVARS_TAVE                                  C     | SUBROUTINE DO_STATEVARS_TAVE
16  C     | o Controlling routine for state variables time-averaging  C     | o Controlling routine for state variables time-averaging
17  C     *==========================================================*  C     *==========================================================*
18  C     | Computing statistics of the model state (state-variables)  C     | Computing statistics of the model state (state-variables)
19  C     | is done at this level (after updating the halo region),  C     | is done at this level (after updating the halo region),
20  C     | as opposed to other diagnostic calls (fluxes, tendencies)  C     | as opposed to other diagnostic calls (fluxes, tendencies)
21  C     | that remain within the computation sequence.    C     | that remain within the computation sequence.
22  C     | Note: IO are not supposed to be done at this level  C     | Note: IO are not supposed to be done at this level
23  C     |       but later (in DO_THE_MODEL_IO)  C     |       but later (in DO_THE_MODEL_IO)
24  C     *==========================================================*  C     *==========================================================*
25  C     \ev  C     \ev
# Line 46  C     !LOCAL VARIABLES: Line 46  C     !LOCAL VARIABLES:
46  C     == Local variables  C     == Local variables
47        INTEGER bi,bj        INTEGER bi,bj
48    
       IF ( taveFreq.GT.0. ) THEN  
49  C--   Fill-in TimeAve pkg diagnostics (for state-variables)  C--   Fill-in TimeAve pkg diagnostics (for state-variables)
50    
51         DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
52          DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
53    
54            CALL TIMEAVE_STATVARS( myTime, myIter, bi, bj, myThid )           IF ( taveFreq.GT.0. ) THEN
55               CALL TIMEAVE_STATVARS( myTime, myIter, bi, bj, myThid )
56             ENDIF
57  # ifdef ALLOW_PTRACERS  # ifdef ALLOW_PTRACERS
58            IF ( usePTRACERS ) THEN           IF ( usePTRACERS .AND. PTRACERS_taveFreq.GT.0. ) THEN
59             CALL PTRACERS_TIMEAVE( myTime, myIter, bi, bj, myThid )             CALL PTRACERS_TIMEAVE( myTime, myIter, bi, bj, myThid )
60            ENDIF           ENDIF
61  # endif /* ALLOW_PTRACERS */  # endif /* ALLOW_PTRACERS */
62    
63  C--    End of bi,bj loop  C--    End of bi,bj loop
         ENDDO  
64         ENDDO         ENDDO
65          ENDDO
       ENDIF  
66  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
67    
68        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22