File |
Line number |
Procedure |
Code |
./pkg/bling/bling_airseaflux.F |
119 |
BLING_AIRSEAFLUX |
surfphos(i,j) = PTR_PO4(i,j,1) |
./pkg/bling/bling_airseaflux.F |
60 |
BLING_AIRSEAFLUX |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_airseaflux.F |
9 |
BLING_AIRSEAFLUX |
I PTR_DIC, PTR_ALK, PTR_O2, PTR_NO3, PTR_PO4, |
./pkg/bling/bling_carbonate_sys.F |
117 |
BLING_CARBONATE_SYS |
po4local = PTR_PO4(i,j,k) |
./pkg/bling/bling_carbonate_sys.F |
40 |
BLING_CARBONATE_SYS |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_carbonate_sys.F |
8 |
BLING_CARBONATE_SYS |
I PTR_DIC, PTR_ALK, PTR_PO4, |
./pkg/bling/bling_main.F |
145 |
BLING_MAIN |
I PTR_NO3, PTR_PO4, |
./pkg/bling/bling_main.F |
156 |
BLING_MAIN |
I PTR_DIC, PTR_ALK, PTR_PO4, |
./pkg/bling/bling_main.F |
163 |
BLING_MAIN |
I PTR_NO3, PTR_PO4, PTR_FE, |
./pkg/bling/bling_main.F |
255 |
BLING_MAIN |
PTR_PO4(i,j,k)=PTR_PO4(i,j,k)+G_PO4(i,j,k)*PTRACERS_dTLev(k) |
./pkg/bling/bling_main.F |
67 |
BLING_MAIN |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_main.F |
8 |
BLING_MAIN |
& PTR_PO4, PTR_FE, PTR_DON, PTR_DOP, |
./pkg/bling/bling_production.F |
266 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_PO4, 1. _d -8 ,bi ,bj) |
./pkg/bling/bling_production.F |
404 |
BLING_PROD |
PO4_lim(i,j,k) = PTR_PO4(i,j,k)/(PTR_PO4(i,j,k)+k_PO4) |
./pkg/bling/bling_production.F |
493 |
BLING_PROD |
& PTR_PO4(i,j,k) / (k_PtoN + PTR_PO4(i,j,k)) |
./pkg/bling/bling_production.F |
69 |
BLING_PROD |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_production.F |
8 |
BLING_PROD |
I PTR_NO3, PTR_PO4, PTR_FE, |
./pkg/dic/bio_export.F |
10 |
BIO_EXPORT |
SUBROUTINE BIO_EXPORT( PTR_PO4 , |
./pkg/dic/bio_export.F |
119 |
BIO_EXPORT |
tmppo4=max(0. _d 0, PTR_PO4(i,j,k)) |
./pkg/dic/bio_export.F |
122 |
BIO_EXPORT |
tmppo4=PTR_PO4(i,j,k) |
./pkg/dic/bio_export.F |
42 |
BIO_EXPORT |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/dic/calcite_saturation.F |
10 |
CALCITE_SATURATION |
SUBROUTINE CALCITE_SATURATION(PTR_DIC, PTR_ALK, PTR_PO4, |
./pkg/dic/calcite_saturation.F |
33 |
CALCITE_SATURATION |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/dic/calcite_saturation.F |
90 |
CALCITE_SATURATION |
po4local = PTR_PO4(i,j,k) |
./pkg/dic/dic_biotic_forcing.F |
11 |
DIC_BIOTIC_FORCING |
U PTR_DIC, PTR_ALK, PTR_PO4, PTR_DOP, |
./pkg/dic/dic_biotic_forcing.F |
164 |
DIC_BIOTIC_FORCING |
I PTR_DIC, PTR_ALK, PTR_PO4, |
./pkg/dic/dic_biotic_forcing.F |
207 |
DIC_BIOTIC_FORCING |
I PTR_PO4, |
./pkg/dic/dic_biotic_forcing.F |
246 |
DIC_BIOTIC_FORCING |
I PTR_DIC, PTR_ALK, PTR_PO4, |
./pkg/dic/dic_biotic_forcing.F |
355 |
DIC_BIOTIC_FORCING |
PTR_PO4(i,j,k)= |
./pkg/dic/dic_biotic_forcing.F |
356 |
DIC_BIOTIC_FORCING |
& PTR_PO4(i,j,k)+GPO4(i,j,k)*PTRACERS_dTLev(k) |
./pkg/dic/dic_biotic_forcing.F |
49 |
DIC_BIOTIC_FORCING |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/dic/dic_surfforcing.F |
100 |
DIC_SURFFORCING |
surfphos(i,j) = PTR_PO4(i,j,klev) |
./pkg/dic/dic_surfforcing.F |
11 |
DIC_SURFFORCING |
SUBROUTINE DIC_SURFFORCING( PTR_CO2 , PTR_ALK, PTR_PO4, GDC, |
./pkg/dic/dic_surfforcing.F |
38 |
DIC_SURFFORCING |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/dic/dic_surfforcing.F |
95 |
DIC_SURFFORCING |
& min(1. _d -1,PTR_PO4(i,j,klev))) |