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

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

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

Revision 1.2 - (hide annotations) (download)
Sat Nov 5 01:00:57 2005 UTC (18 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58e_post, mitgcm_mapl_00, checkpoint58u_post, checkpoint58w_post, checkpoint60, checkpoint61, checkpoint62, checkpoint58r_post, checkpoint57y_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint57y_pre, checkpoint58q_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint57x_post, checkpoint58d_post, checkpoint58c_post, checkpoint58a_post, checkpoint58i_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y, checkpoint58b_post, checkpoint58m_post
Changes since 1.1: +2 -3 lines 
remove unused variables (reduces number of compiler warnings)
1 jmc 1.2 C $Header: /u/gcmpack/MITgcm/model/src/do_statevars_tave.F,v 1.1 2005/01/28 01:00:13 jmc Exp $
2 jmc 1.1 C $Name: $
3    
4     #include "PACKAGES_CONFIG.h"
5     #include "CPP_OPTIONS.h"
6    
7    
8     CBOP
9     C !ROUTINE: DO_STATEVARS_TAVE
10     C !INTERFACE:
11     SUBROUTINE DO_STATEVARS_TAVE( myTime, myIter, myThid )
12     C !DESCRIPTION: \bv
13     C *==========================================================*
14     C | SUBROUTINE DO_STATEVARS_TAVE
15     C | o Controlling routine for state variables time-averaging
16     C *==========================================================*
17     C | Computing statistics of the model state (state-variables)
18     C | is done at this level (after updating the halo region),
19     C | as opposed to other diagnostic calls (fluxes, tendencies)
20     C | that remain within the computation sequence.
21     C | Note: IO are not supposed to be done at this level
22     C | but later (in DO_THE_MODEL_IO)
23     C *==========================================================*
24     C \ev
25    
26     C !USES:
27     IMPLICIT NONE
28     C == Global variables ===
29     #include "SIZE.h"
30     #include "EEPARAMS.h"
31     #include "PARAMS.h"
32    
33     C !INPUT/OUTPUT PARAMETERS:
34     C == Routine arguments ==
35     C myTime - Current time of simulation ( s )
36     C myIter - Iteration number
37     C myThid - Thread number for this instance of the routine.
38     _RL myTime
39     INTEGER myIter
40     INTEGER myThid
41     CEOP
42    
43 jmc 1.2 #ifdef ALLOW_TIMEAVE
44 jmc 1.1 C !LOCAL VARIABLES:
45     C == Local variables
46     INTEGER bi,bj
47    
48     C-- Fill-in TimeAve pkg diagnostics (for state-variables)
49    
50     DO bj=myByLo(myThid),myByHi(myThid)
51     DO bi=myBxLo(myThid),myBxHi(myThid)
52    
53     IF ( taveFreq.GT.0. ) THEN
54     CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid)
55     # ifdef ALLOW_PTRACERS
56     IF ( usePTRACERS ) THEN
57     CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)
58     ENDIF
59     # endif /* ALLOW_PTRACERS */
60     ENDIF
61    
62     C-- End of bi,bj loop
63     ENDDO
64     ENDDO
65     #endif /* ALLOW_TIMEAVE */
66    
67     RETURN
68     END
  ViewVC Help
Powered by ViewVC 1.1.22