1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
C /==========================================================\ |
C *==========================================================* |
5 |
C | DIC_VARS.h |
C | DIC_VARS.h |
6 |
C | o Carbon Variables |
C | o Carbon Variables |
7 |
C |==========================================================| |
C *==========================================================* |
8 |
|
|
9 |
COMMON /CARBON_NEEDS/ |
COMMON /CARBON_NEEDS/ |
10 |
& AtmospCO2, AtmosP, pH, pCO2, FluxCO2, |
& AtmospCO2, AtmosP, pH, pCO2, FluxCO2, |
107 |
INTEGER dic_int4 |
INTEGER dic_int4 |
108 |
|
|
109 |
#ifdef DIC_BIOTIC |
#ifdef DIC_BIOTIC |
110 |
C /==========================================================\ |
C *==========================================================* |
111 |
C | o Biological Carbon Variables |
C | o Biological Carbon Variables |
112 |
C |==========================================================| |
C *==========================================================* |
113 |
|
|
114 |
COMMON /BIOTIC_NEEDS/ |
COMMON /BIOTIC_NEEDS/ |
115 |
& BIOave, CARave, SURave, SUROave, pCO2ave, pHave, |
& BIOave, CARave, SURave, SUROave, pCO2ave, pHave, |
127 |
INTEGER nlev |
INTEGER nlev |
128 |
|
|
129 |
C For averages |
C For averages |
130 |
_RL BIOave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL BIOave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
131 |
_RL CARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL CARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
132 |
_RL SURave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SURave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
133 |
_RL SUROave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL SUROave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
134 |
_RL pCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL pCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
135 |
_RL pHave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL pHave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
136 |
_RL fluxCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL fluxCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
137 |
_RL OmegaCave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL OmegaCave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
138 |
_RL pfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL pfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
139 |
_RL epfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL epfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
140 |
_RL cfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL cfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
141 |
_RL DIC_timeave(nSx,nSy,nR) |
_RL DIC_timeAve(Nr,nSx,nSy) |
142 |
|
|
143 |
C values for biogeochemistry |
C values for biogeochemistry |
144 |
_RL par(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL par(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
145 |
_RL alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
146 |
_RL rain_ratio(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL rain_ratio(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
147 |
_RL InputFe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL InputFe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
148 |
_RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
149 |
_RL Kpo4 |
_RL Kpo4 |
150 |
_RL DOPfraction |
_RL DOPfraction |
151 |
_RL zcrit |
_RL zcrit |