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

Contents 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 - (show annotations) (download)
Wed Apr 13 18:56:24 2011 UTC (14 years, 6 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 #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