| File |
Line number |
Procedure |
Code |
|
./pkg/bling/BLING_VARS.h |
16 |
NO PROCEDURE |
_RL pH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
9 |
NO PROCEDURE |
& AtmospCO2, AtmosP, pH, pCO2, FluxCO2, |
|
./pkg/bling/bling_airseaflux.F |
174 |
BLING_AIRSEAFLUX |
U pH(i,j,klev,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_airseaflux.F |
316 |
BLING_AIRSEAFLUX |
_EXCH_XYZ_RL( pH, mythid) |
|
./pkg/bling/bling_carbonate_init.F |
117 |
BLING_CARBONATE_INIT |
pH(i,j,k,bi,bj) = 8. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
209 |
BLING_CARBONATE_INIT |
U pH(i,j,k,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_carbonate_sys.F |
120 |
BLING_CARBONATE_SYS |
pHlocal = pH(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
144 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = pHlocal |
|
./pkg/bling/bling_carbonate_sys.F |
155 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
273 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(pH ,'BLGPH3D ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_read_pickup.F |
71 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, pH, 1, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
80 |
BLING_READ_PICKUP |
_EXCH_XYZ_RL( pH, myThid ) |
|
./pkg/bling/bling_write_pickup.F |
63 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, pH, -j, myIter, myThid ) |
|
./pkg/dic/DIC_VARS.h |
12 |
NO PROCEDURE |
& AtmospCO2, AtmosP, pH, pCO2, FluxCO2, |
|
./pkg/dic/DIC_VARS.h |
16 |
NO PROCEDURE |
_RL pH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/dic/dic_biotic_forcing.F |
416 |
DIC_BIOTIC_FORCING |
& pH(i,j,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
433 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(pH ,'DICPHAV ',0,1 ,1,bi,bj,myThid) |
|
./pkg/dic/dic_read_pickup.F |
65 |
DIC_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
68 |
DIC_READ_PICKUP |
_EXCH_XY_RL( pH, myThid ) |
|
./pkg/dic/dic_surfforcing.F |
170 |
DIC_SURFFORCING |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/dic/dic_surfforcing_init.F |
125 |
DIC_SURFFORCING_INIT |
pH(i,j,bi,bj) = 8. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
240 |
DIC_SURFFORCING_INIT |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/dic/dic_surfforcing_init.F |
249 |
DIC_SURFFORCING_INIT |
& pH(iprt,jprt,bi,bj), |
|
./pkg/dic/dic_write_pickup.F |
90 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |