/[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.2 - (hide annotations) (download)
Wed Oct 9 17:14:37 2013 UTC (11 years, 9 months ago) by stephd
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_ckpt64r_20131210, ctrb_darwin2_ckpt65m_20150615, ctrb_darwin2_ckpt65q_20151118, ctrb_darwin2_ckpt65o_20150914, ctrb_darwin2_ckpt65p_20151023, ctrb_darwin2_ckpt65e_20140929, ctrb_darwin2_ckpt64o_20131024, 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_ckpt64p_20131118, ctrb_darwin2_ckpt66o_20180209, ctrb_darwin2_ckpt66e_20170314, ctrb_darwin2_ckpt64q_20131118, ctrb_darwin2_ckpt64p_20131024, 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.1: +16 -1 lines 
o changes so that pH and pCO2 can be calculated for full water column
  by defining pH_3D in DARWIN_OPTIONS.h. Includes 3D diags and pickup
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 stephd 1.2 #ifdef pH_3D
52     CALL MNC_CW_ADD_VNAME(
53     & 'dic_pH_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
54     CALL MNC_CW_ADD_VATTR_TEXT(
55     & 'dic_pH_ave','units','--', myThid)
56     CALL MNC_CW_ADD_VATTR_TEXT('dic_pH_ave','description',
57     & '', myThid)
58    
59     CALL MNC_CW_ADD_VNAME(
60     & 'dic_pCO2_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
61     CALL MNC_CW_ADD_VATTR_TEXT(
62     & 'dic_pCO2_ave','units','--', myThid)
63     CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',
64     & '', myThid)
65     #else
66 jahn 1.1 CALL MNC_CW_ADD_VNAME(
67     & 'dic_pH_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
68     CALL MNC_CW_ADD_VATTR_TEXT(
69     & 'dic_pH_ave','units','--', myThid)
70     CALL MNC_CW_ADD_VATTR_TEXT('dic_pH_ave','description',
71     & '', myThid)
72    
73     CALL MNC_CW_ADD_VNAME(
74     & 'dic_pCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
75     CALL MNC_CW_ADD_VATTR_TEXT(
76     & 'dic_pCO2_ave','units','--', myThid)
77     CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',
78     & '', myThid)
79 stephd 1.2 #endif
80 jahn 1.1
81     ENDIF
82     RETURN
83     END
84     #endif /*ALLOW_MNC*/
85     #endif /*ALLOW_CARBON*/
86    
87     #endif /*DARWIN*/
88     #endif /*ALLOW_PTRACERS*/
89     c ==================================================================
90    
  ViewVC Help
Powered by ViewVC 1.1.22