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

Annotation of /MITgcm_contrib/darwin2/pkg/darwin/dic_mnc_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     #ifdef ALLOW_MNC
10    
11     CBOP
12     C !ROUTINE: DIC_MNC_INIT
13    
14     C !INTERFACE:
15     SUBROUTINE DIC_MNC_INIT( myThid )
16    
17     C !DESCRIPTION:
18     C Initialize MNC for DIC
19    
20     C !USES:
21     IMPLICIT NONE
22     #include "SIZE.h"
23     #include "EEPARAMS.h"
24     #include "PARAMS.h"
25    
26     C !INPUT PARAMETERS:
27     INTEGER myThid
28     CEOP
29     IF ( useMNC ) THEN
30     CALL MNC_CW_ADD_VNAME(
31     & 'dic_SUR_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
32     CALL MNC_CW_ADD_VATTR_TEXT(
33     & 'dic_SUR_ave','units','--', myThid)
34     CALL MNC_CW_ADD_VATTR_TEXT('dic_SUR_ave','description',
35     & '', myThid)
36    
37     CALL MNC_CW_ADD_VNAME(
38     & 'dic_SURC_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
39     CALL MNC_CW_ADD_VATTR_TEXT(
40     & 'dic_SURC_ave','units','--', myThid)
41     CALL MNC_CW_ADD_VATTR_TEXT('dic_SURC_ave','description',
42     & '', myThid)
43    
44     CALL MNC_CW_ADD_VNAME(
45     & 'dic_SURO_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
46     CALL MNC_CW_ADD_VATTR_TEXT(
47     & 'dic_SURO_ave','units','--', myThid)
48     CALL MNC_CW_ADD_VATTR_TEXT('dic_SURO_ave','description',
49     & '', myThid)
50    
51     CALL MNC_CW_ADD_VNAME(
52     & 'dic_pH_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
53     CALL MNC_CW_ADD_VATTR_TEXT(
54     & 'dic_pH_ave','units','--', myThid)
55     CALL MNC_CW_ADD_VATTR_TEXT('dic_pH_ave','description',
56     & '', myThid)
57    
58     CALL MNC_CW_ADD_VNAME(
59     & 'dic_pCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
60     CALL MNC_CW_ADD_VATTR_TEXT(
61     & 'dic_pCO2_ave','units','--', myThid)
62     CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',
63     & '', myThid)
64    
65    
66     ENDIF
67     RETURN
68     END
69     #endif /*ALLOW_MNC*/
70     #endif /*ALLOW_CARBON*/
71    
72     #endif /*DARWIN*/
73     #endif /*ALLOW_PTRACERS*/
74     c ==================================================================
75    
  ViewVC Help
Powered by ViewVC 1.1.22