| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
279 |
NO PROCEDURE |
COMMON/FROM_OCN/ sstFromOcn, sssFromOcn, oFluxCO2, mlDepth |
|
./pkg/atm2d/ATM2D_VARS.h |
282 |
NO PROCEDURE |
_RL oFluxCO2(1:sNx,1:sNy) ! flux of CO2 from ocean DIC etc. package (mol/m2/s) |
|
./pkg/atm2d/calc_zonal_means.F |
102 |
CALC_ZONAL_MEANS |
& oFluxCO2(i,j)*rA(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
82 |
CALC_ZONAL_MEANS |
& oFluxCO2(i,j)*rA(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/get_ocnvars.F |
120 |
GET_OCNVARS |
oFluxCO2(i,j) = fluxCO2(i,j,1,1) |
|
./pkg/atm2d/get_ocnvars.F |
57 |
GET_OCNVARS |
IF ( ocnCpl_exchange_DIC ) oFluxCO2(i,j) = fluxCO2_ocn(i,j) |
|
./pkg/atm2d/init_atm2d.F |
361 |
INIT_ATM2D |
oFluxCO2(i,j) = 0. _d 0 |
|
./pkg/atm2d/sum_yr_end_diags.F |
67 |
SUM_YR_END_DIAGS |
CO2flx_tave = CO2flx_tave + rA(i,j,1,1)*oFluxCO2(i,j) |