File |
Line number |
Procedure |
Code |
./pkg/bling/BLING_VARS.h |
195 |
NO PROCEDURE |
& omegaC, |
./pkg/bling/BLING_VARS.h |
271 |
NO PROCEDURE |
_RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/bling/bling_carbonate_sys.F |
148 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
./pkg/bling/bling_carbonate_sys.F |
156 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
./pkg/bling/bling_init_varia.F |
43 |
BLING_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
./pkg/bling/bling_remineralization.F |
180 |
BLING_REMIN |
& omegaC(i,j,k,bi,bj) + epsln )) |
./pkg/dic/DIC_VARS.h |
127 |
NO PROCEDURE |
& par, alpha, rain_ratio, InputFe, omegaC, CHL, |
./pkg/dic/DIC_VARS.h |
163 |
NO PROCEDURE |
_RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/dic/calcite_saturation.F |
128 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
./pkg/dic/calcite_saturation.F |
156 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
./pkg/dic/car_flux_omega_top.F |
103 |
CAR_FLUX_OMEGA_TOP |
if (omegaC(i,j,ko,bi,bj) .gt. 1.0) then |
./pkg/dic/car_flux_omega_top.F |
121 |
CAR_FLUX_OMEGA_TOP |
KierRate = 7.177* ((1.0-omegaC(i,j,ko,bi,bj))**4.54) |
./pkg/dic/car_flux_omega_top.F |
159 |
CAR_FLUX_OMEGA_TOP |
if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then |
./pkg/dic/dic_init_varia.F |
67 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |