/[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.1 - (hide annotations) (download)
Wed Apr 13 18:56:24 2011 UTC (14 years, 3 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt63l_20120405, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt62v_20110413, ctrb_darwin2_ckpt64m_20130820, ctrb_darwin2_ckpt64f_20130405, ctrb_darwin2_ckpt63f_20111201, ctrb_darwin2_ckpt64a_20121116, ctrb_darwin2_ckpt64n_20130826, ctrb_darwin2_ckpt62y_20110526, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt62x_20110513, ctrb_darwin2_ckpt62w_20110426, ctrb_darwin2_ckpt63o_20120629, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt63c_20111011, ctrb_darwin2_ckpt63i_20120124, ctrb_darwin2_ckpt63m_20120506, ctrb_darwin2_ckpt63s_20120908, ctrb_darwin2_ckpt63e_20111107, ctrb_darwin2_ckpt63b_20110830, ctrb_darwin2_ckpt63j_20120217, ctrb_darwin2_ckpt63r_20120817, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt63g_20111220, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt63a_20110804, ctrb_darwin2_ckpt64j_20130704, ctrb_darwin2_ckpt63h_20111230, ctrb_darwin2_ckpt63p_20120707, ctrb_darwin2_ckpt63d_20111107, ctrb_darwin2_ckpt63q_20120731, ctrb_darwin2_ckpt63_20110728, ctrb_darwin2_ckpt64b_20121224, ctrb_darwin2_ckpt64d_20130219, ctrb_darwin2_ckpt64_20121012, ctrb_darwin2_baseline, ctrb_darwin2_ckpt63n_20120604, ctrb_darwin2_ckpt63k_20120317, ctrb_darwin2_ckpt62z_20110622 
darwin2 initial checkin
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     CALL TIMEAVE_RESET(pCO2ave, 1, bi, bj, myThid)
44     CALL TIMEAVE_RESET(pHave, 1, bi, bj, myThid)
45     print*,'QQ start timeave'
46     do k=1,Nr
47     DIC_TimeAve(bi,bj,k)=0.d0
48     enddo
49     ENDDO
50     ENDDO
51     #endif /* ALLOW_TIMEAVE */
52    
53     RETURN
54     END
55     #endif /*ALLOW_CARBON*/
56    
57     #endif /*DARWIN*/
58     #endif /*ALLOW_PTRACERS*/
59     c ==================================================================
60    
  ViewVC Help
Powered by ViewVC 1.1.22