/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/dic_diags_init.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin2/pkg/darwin/dic_diags_init.F

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

Revision 1.3 - (hide annotations) (download)
Fri Dec 27 17:29:00 2013 UTC (11 years, 6 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt65w_20160512, ctrb_darwin2_ckpt65j_20150225, ctrb_darwin2_ckpt66g_20170424, ctrb_darwin2_ckpt66k_20171025, ctrb_darwin2_ckpt66n_20180118, ctrb_darwin2_ckpt65v_20160409, ctrb_darwin2_ckpt65s_20160114, ctrb_darwin2_ckpt65_20140718, ctrb_darwin2_ckpt66d_20170214, ctrb_darwin2_ckpt65m_20150615, ctrb_darwin2_ckpt65q_20151118, ctrb_darwin2_ckpt65o_20150914, ctrb_darwin2_ckpt65p_20151023, ctrb_darwin2_ckpt65e_20140929, ctrb_darwin2_ckpt64v_20140411, ctrb_darwin2_ckpt64z_20140711, ctrb_darwin2_ckpt65l_20150504, ctrb_darwin2_ckpt65z_20160929, ctrb_darwin2_ckpt65n_20150729, ctrb_darwin2_ckpt64y_20140622, ctrb_darwin2_ckpt65d_20140915, ctrb_darwin2_ckpt64t_20140202, ctrb_darwin2_ckpt66h_20170602, ctrb_darwin2_ckpt64s_20140105, ctrb_darwin2_ckpt64x_20140524, ctrb_darwin2_ckpt65x_20160612, ctrb_darwin2_ckpt66f_20170407, ctrb_darwin2_ckpt65g_20141120, ctrb_darwin2_ckpt65k_20150402, ctrb_darwin2_ckpt64w_20140502, ctrb_darwin2_ckpt66a_20161020, ctrb_darwin2_ckpt65f_20141014, ctrb_darwin2_ckpt66b_20161219, ctrb_darwin2_ckpt64u_20140308, ctrb_darwin2_ckpt65i_20150123, ctrb_darwin2_ckpt66j_20170815, ctrb_darwin2_ckpt65y_20160801, ctrb_darwin2_ckpt66c_20170121, ctrb_darwin2_ckpt65a_20140728, ctrb_darwin2_ckpt65b_20140812, ctrb_darwin2_ckpt65t_20160221, ctrb_darwin2_ckpt66o_20180209, ctrb_darwin2_ckpt66e_20170314, ctrb_darwin2_ckpt65u_20160315, ctrb_darwin2_ckpt65r_20151221, ctrb_darwin2_ckpt66i_20170718, ctrb_darwin2_ckpt65c_20140830, ctrb_darwin2_ckpt66l_20171025, ctrb_darwin2_ckpt65h_20141217, ctrb_darwin2_ckpt66m_20171213, HEAD
Changes since 1.2: +1 -3 lines 
use simpler (no level index) cumulative-time counter for timeave
1 jahn 1.1 #include "CPP_OPTIONS.h"
2     #include "PTRACERS_OPTIONS.h"
3     #include "DARWIN_OPTIONS.h"
4    
5     #ifdef ALLOW_PTRACERS
6     #ifdef ALLOW_DARWIN
7    
8     #ifdef ALLOW_CARBON
9    
10     CBOP
11     C !ROUTINE: DIC_DIAGS_INIT
12    
13     C !INTERFACE: ==========================================================
14     SUBROUTINE DIC_DIAGS_INIT( myThid )
15    
16     C !DESCRIPTION:
17     C DIC diagnostic initialization
18    
19     C !USES: ===============================================================
20     IMPLICIT NONE
21     #include "SIZE.h"
22     #include "EEPARAMS.h"
23     #include "PARAMS.h"
24     #include "DARWIN_FLUX.h"
25    
26     c!INPUT PARAMETERS: ===================================================
27     C myThid :: thread number
28     INTEGER myThid
29    
30    
31     C !LOCAL VARIABLES: ====================================================
32     INTEGER bi, bj, k
33     CHARACTER*(MAX_LEN_MBUF) suff
34     CEOP
35    
36     #ifdef ALLOW_TIMEAVE
37     c set arrays to zero if first timestep
38     DO bj = myByLo(myThid), myByHi(myThid)
39     DO bi = myBxLo(myThid), myBxHi(myThid)
40     CALL TIMEAVE_RESET(SURave, 1, bi, bj, myThid)
41     CALL TIMEAVE_RESET(SURCave, 1, bi, bj, myThid)
42     CALL TIMEAVE_RESET(SUROave, 1, bi, bj, myThid)
43 stephd 1.2 #ifdef pH_3D
44     CALL TIMEAVE_RESET(pCO2ave, Nr, bi, bj, myThid)
45     CALL TIMEAVE_RESET(pHave, Nr, bi, bj, myThid)
46     #else
47 jahn 1.1 CALL TIMEAVE_RESET(pCO2ave, 1, bi, bj, myThid)
48     CALL TIMEAVE_RESET(pHave, 1, bi, bj, myThid)
49 stephd 1.2 #endif
50 jahn 1.1 print*,'QQ start timeave'
51 jahn 1.3 DIC_timeAve(bi,bj)=0.d0
52 jahn 1.1 ENDDO
53     ENDDO
54     #endif /* ALLOW_TIMEAVE */
55    
56     RETURN
57     END
58     #endif /*ALLOW_CARBON*/
59    
60     #endif /*DARWIN*/
61     #endif /*ALLOW_PTRACERS*/
62     c ==================================================================
63    
  ViewVC Help
Powered by ViewVC 1.1.22