/[MITgcm]/MITgcm/pkg/dic/DIC_ABIOTIC.h
ViewVC logotype

Contents of /MITgcm/pkg/dic/DIC_ABIOTIC.h

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

Revision 1.5 - (show annotations) (download)
Thu Aug 18 18:24:28 2005 UTC (18 years, 9 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint58e_post, checkpoint57v_post, checkpoint57s_post, checkpoint58b_post, checkpoint58m_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint58n_post, checkpoint58h_post, checkpoint58j_post, checkpoint57y_pre, checkpoint57r_post, checkpoint58, checkpoint58f_post, checkpoint58d_post, checkpoint57w_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58o_post, checkpoint57z_post, checkpoint58c_post, checkpoint58k_post, checkpoint58p_post
Changes since 1.4: +3 -2 lines
File MIME type: text/plain 
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_ABIOTIC.h,v 1.4 2004/09/02 19:47:48 edhill Exp $
2 C $Name: $
3
4 C /==========================================================\
5 C | DIC_ABIOTIC.h
6 C | o Carbon Variables
7 C |==========================================================|
8
9 COMMON /CARBON_NEEDS/
10 & AtmospCO2, AtmosP, pH, pCO2, fluxCO2,
11 & pisvel,fice,Silica
12 _RL AtmospCO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
13 _RL Atmosp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
14 _RL pH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
15 _RL pCO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
16 _RL fluxCO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
17 _RL pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
18 _RL fice(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
19 _RL Silica(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
20
21 COMMON /CARBON_CHEM/
22 & ak0,ak1,ak2,akw,akb,aks,akf,
23 & ak1p,ak2p,ak3p,aksi,
24 & ff,ft,st,bt, Ksp_TP_Calc
25 _RL ak0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
26 _RL ak1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27 _RL ak2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28 _RL akw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29 _RL akb(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30 _RL aks(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
31 _RL akf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32 _RL ak1p(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
33 _RL ak2p(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34 _RL ak3p(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35 _RL aksi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36 _RL ff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37 _RL ft(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38 _RL st(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39 _RL bt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40 _RL Ksp_TP_Calc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
41
42 COMMON /OXYGEN_CHEM/
43 & oA0,oA1,oA2,oA3,oA4,oA5,
44 & oB0,oB1,oB2,oB3,
45 & oC0
46 _RL oA0,oA1,oA2,oA3,oA4,oA5
47 _RL oB0,oB1,oB2,oB3
48 _RL oC0
49
50
51 C permil is conversion factor for mol/m3 to mol/kg
52 C assumes uniform (surface) density
53 COMMON /GLOBAL_SURF_MEAN/
54 & gsm_alk,gsm_s,gsm_t,gsm_dic,
55 & gsm_c14,permil
56 _RL gsm_alk
57 _RL gsm_s
58 _RL gsm_t
59 _RL gsm_DIC
60 _RL gsm_C14
61 _RL permil
62
63 C schmidt number coefficients
64 COMMON /SCHMIDT_NO/
65 & sca1, sca2, sca3, sca4,
66 & sox1, sox2, sox3, sox4
67 _RL sca1
68 _RL sca2
69 _RL sca3
70 _RL sca4
71 _RL sox1
72 _RL sox2
73 _RL sox3
74 _RL sox4
75
76
77 CEH3 ;;; Local Variables: ***
78 CEH3 ;;; mode:fortran ***
79 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22