/[MITgcm]/MITgcm/pkg/dic/dic_mnc_init.F
ViewVC logotype

Contents of /MITgcm/pkg/dic/dic_mnc_init.F

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

Revision 1.2 - (show annotations) (download)
Thu Aug 18 18:24:29 2005 UTC (18 years, 10 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint58e_post, checkpoint57v_post, checkpoint57s_post, checkpoint58r_post, checkpoint57y_post, checkpoint58n_post, checkpoint58h_post, checkpoint57y_pre, checkpoint58q_post, checkpoint58j_post, checkpoint57r_post, checkpoint58, checkpoint58f_post, checkpoint57x_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint58k_post, checkpoint58p_post, checkpoint58b_post, checkpoint58m_post
Changes since 1.1: +23 -1 lines 
o add new calcium carbonate dissolution scheme (from Karsten Friis and
  Mick Follows)
o some cleaning up of code
1 C$Header: /u/gcmpack/MITgcm/pkg/dic/dic_mnc_init.F,v 1.1 2005/08/01 21:07:34 edhill Exp $
2 C$Name: $
3
4 #include "DIC_OPTIONS.h"
5
6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7 CBOP
8 C !ROUTINE: DIC_MNC_INIT
9
10 C !INTERFACE:
11 SUBROUTINE DIC_MNC_INIT( myThid )
12
13 C !DESCRIPTION:
14 C Initialize MNC for DIC
15
16 C !USES:
17 IMPLICIT NONE
18 #include "SIZE.h"
19 #include "EEPARAMS.h"
20 #include "PARAMS.h"
21
22 C !INPUT PARAMETERS:
23 C myThid :: thread number
24 INTEGER myThid
25 CEOP
26
27 #ifdef ALLOW_DIC
28 #ifdef ALLOW_MNC
29
30 IF ( useMNC ) THEN
31
32 CALL MNC_CW_ADD_VNAME(
33 & 'dic_BIO_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
34 CALL MNC_CW_ADD_VATTR_TEXT(
35 & 'dic_BIO_ave','units','--', myThid)
36 CALL MNC_CW_ADD_VATTR_TEXT('dic_BIO_ave','description',
37 & '', myThid)
38
39 CALL MNC_CW_ADD_VNAME(
40 & 'dic_CAR_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
41 CALL MNC_CW_ADD_VATTR_TEXT(
42 & 'dic_CAR_ave','units','--', myThid)
43 CALL MNC_CW_ADD_VATTR_TEXT('dic_CAR_ave','description',
44 & '', myThid)
45
46 CALL MNC_CW_ADD_VNAME(
47 & 'dic_SUR_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
48 CALL MNC_CW_ADD_VATTR_TEXT(
49 & 'dic_SUR_ave','units','--', myThid)
50 CALL MNC_CW_ADD_VATTR_TEXT('dic_SUR_ave','description',
51 & '', myThid)
52
53 CALL MNC_CW_ADD_VNAME(
54 & 'dic_SURO_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
55 CALL MNC_CW_ADD_VATTR_TEXT(
56 & 'dic_SURO_ave','units','--', myThid)
57 CALL MNC_CW_ADD_VATTR_TEXT('dic_SURO_ave','description',
58 & '', myThid)
59
60 CALL MNC_CW_ADD_VNAME(
61 & 'dic_pH_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
62 CALL MNC_CW_ADD_VATTR_TEXT(
63 & 'dic_pH_ave','units','--', myThid)
64 CALL MNC_CW_ADD_VATTR_TEXT('dic_pH_ave','description',
65 & '', myThid)
66
67 CALL MNC_CW_ADD_VNAME(
68 & 'dic_pCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
69 CALL MNC_CW_ADD_VATTR_TEXT(
70 & 'dic_pCO2_ave','units','--', myThid)
71 CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',
72 & '', myThid)
73
74 CALL MNC_CW_ADD_VNAME(
75 & 'dic_fluxCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
76 CALL MNC_CW_ADD_VATTR_TEXT(
77 & 'dic_fluxCO2_ave','units','--', myThid)
78 CALL MNC_CW_ADD_VATTR_TEXT('dic_fluxCO2_ave','description',
79 & '', myThid)
80
81 CALL MNC_CW_ADD_VNAME(
82 & 'dic_OmegaC_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
83 CALL MNC_CW_ADD_VATTR_TEXT(
84 & 'dic_OmegaC_ave','units','--', myThid)
85 CALL MNC_CW_ADD_VATTR_TEXT('dic_OmegaC_ave','description',
86 & '', myThid)
87
88 CALL MNC_CW_ADD_VNAME(
89 & 'dic_pflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
90 CALL MNC_CW_ADD_VATTR_TEXT(
91 & 'dic_pflux_ave','units','--', myThid)
92 CALL MNC_CW_ADD_VATTR_TEXT('dic_pflux_ave','description',
93 & '', myThid)
94
95 CALL MNC_CW_ADD_VNAME(
96 & 'dic_cflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
97 CALL MNC_CW_ADD_VATTR_TEXT(
98 & 'dic_cflux_ave','units','--', myThid)
99 CALL MNC_CW_ADD_VATTR_TEXT('dic_cflux_ave','description',
100 & '', myThid)
101
102
103 ENDIF
104
105 #endif /* ALLOW_MNC */
106 #endif /* ALLOW_DIC */
107
108 RETURN
109 END
  ViewVC Help
Powered by ViewVC 1.1.22