| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
197 |
NO PROCEDURE |
& pass_solarnet, pass_slp, pass_pCO2, |
|
./pkg/atm2d/ATM2D_VARS.h |
208 |
NO PROCEDURE |
_RL pass_pCO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! atmos pCO2 -> ocean (parts by volume, i.e. ppmv*1e-6) |
|
./pkg/atm2d/atm2d_read_pickup.F |
52 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_pCO2, 10, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
162 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_pCO2, 10,myIter,myThid ) |
|
./pkg/atm2d/init_atm2d.F |
351 |
INIT_ATM2D |
pass_pCO2(i,j)= 0. _d 0 |
|
./pkg/atm2d/norm_ocn_fluxes.F |
53 |
NORM_OCN_FLUXES |
pass_pCO2(i,j)= sum_pCO2(i,j)*1. _d -6/nper |
|
./pkg/atm2d/put_ocnvars.F |
66 |
PUT_OCNVARS |
aCO2_ocn(i,j) = pass_pCO2(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
99 |
PUT_OCNVARS |
AtmospCO2(i,j,1,1)= pass_pCO2(i,j) |