File |
Line number |
Procedure |
Code |
./pkg/bling/bling_airseaflux.F |
287 |
BLING_AIRSEAFLUX |
O2sat_percent(i,j) = PTR_O2(i,j,1)/O2sat(i,j)*100 |
./pkg/bling/bling_airseaflux.F |
294 |
BLING_AIRSEAFLUX |
& *O2sat(i,j) - PTR_O2(i,j,1) ) |
./pkg/bling/bling_airseaflux.F |
298 |
BLING_AIRSEAFLUX |
& - PTR_O2(i,j,1)) |
./pkg/bling/bling_airseaflux.F |
61 |
BLING_AIRSEAFLUX |
_RL PTR_O2 (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_dvm.F |
151 |
BLING_DVM |
o2_upper = o2_upper + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
./pkg/bling/bling_dvm.F |
157 |
BLING_DVM |
o2_lower = o2_lower + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
./pkg/bling/bling_dvm.F |
205 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
./pkg/bling/bling_dvm.F |
274 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
./pkg/bling/bling_dvm.F |
55 |
BLING_DVM |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_dvm.F |
9 |
BLING_DVM |
I PTR_O2, mld, |
./pkg/bling/bling_main.F |
144 |
BLING_MAIN |
I PTR_DIC, PTR_ALK, PTR_O2, |
./pkg/bling/bling_main.F |
164 |
BLING_MAIN |
I PTR_O2, PTR_DON, PTR_DOP, |
./pkg/bling/bling_main.F |
253 |
BLING_MAIN |
PTR_O2 (i,j,k)=PTR_O2 (i,j,k)+G_O2 (i,j,k)*PTRACERS_dTLev(k) |
./pkg/bling/bling_main.F |
69 |
BLING_MAIN |
_RL PTR_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_main.F |
7 |
BLING_MAIN |
subroutine BLING_MAIN( PTR_DIC, PTR_ALK, PTR_O2, PTR_NO3, |
./pkg/bling/bling_production.F |
268 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_O2, 1. _d -11 ,bi ,bj) |
./pkg/bling/bling_production.F |
682 |
BLING_PROD |
I PTR_NO3, PTR_FE, PTR_O2, irr_inst, |
./pkg/bling/bling_production.F |
695 |
BLING_PROD |
I PTR_O2, mld, |
./pkg/bling/bling_production.F |
71 |
BLING_PROD |
_RL PTR_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_production.F |
727 |
BLING_PROD |
IF (PTR_O2(i,j,k) .lt. oxic_min) THEN |
./pkg/bling/bling_production.F |
756 |
BLING_PROD |
IF (PTR_O2(i,j,k) .lt. oxic_min) THEN |
./pkg/bling/bling_production.F |
798 |
BLING_PROD |
IF (PTR_O2(i,j,k) .gt. oxic_min) THEN |
./pkg/bling/bling_production.F |
9 |
BLING_PROD |
I PTR_O2, PTR_DON, PTR_DOP, |
./pkg/bling/bling_remineralization.F |
173 |
BLING_REMIN |
zremin = gamma_POM2d(i,j,bi,bj) * ( PTR_O2(i,j,k)**2 / |
./pkg/bling/bling_remineralization.F |
174 |
BLING_REMIN |
& (k_O2**2 + PTR_O2(i,j,k)**2) * (1-remin_min) |
./pkg/bling/bling_remineralization.F |
317 |
BLING_REMIN |
IF (PTR_O2(i,j,k) .LT. oxic_min) THEN |
./pkg/bling/bling_remineralization.F |
351 |
BLING_REMIN |
IF ( PTR_O2(i,j,k) .LT. oxic_min ) THEN |
./pkg/bling/bling_remineralization.F |
58 |
BLING_REMIN |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/bling/bling_remineralization.F |
8 |
BLING_REMIN |
I PTR_NO3, PTR_FE, PTR_O2, irr_inst, |
./pkg/dic/dic_biotic_forcing.F |
13 |
DIC_BIOTIC_FORCING |
U PTR_O2, |
./pkg/dic/dic_biotic_forcing.F |
185 |
DIC_BIOTIC_FORCING |
I PTR_O2, |
./pkg/dic/dic_biotic_forcing.F |
292 |
DIC_BIOTIC_FORCING |
if (PTR_O2(i,j,k).GT.O2crit) then |
./pkg/dic/dic_biotic_forcing.F |
360 |
DIC_BIOTIC_FORCING |
PTR_O2(i,j,k)= |
./pkg/dic/dic_biotic_forcing.F |
361 |
DIC_BIOTIC_FORCING |
& PTR_O2(i,j,k)+GO2(i,j,k)*PTRACERS_dTLev(k) |
./pkg/dic/dic_biotic_forcing.F |
52 |
DIC_BIOTIC_FORCING |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/dic/o2_surfforcing.F |
10 |
O2_SURFFORCING |
SUBROUTINE O2_SURFFORCING( PTR_O2, SGO2, |
./pkg/dic/o2_surfforcing.F |
112 |
O2_SURFFORCING |
& - PTR_O2(i,j,K)) |
./pkg/dic/o2_surfforcing.F |
33 |
O2_SURFFORCING |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |