| File |
Line number |
Procedure |
Code |
|
./pkg/dic/DIC_VARS.h |
120 |
NO PROCEDURE |
& alpha, rain_ratio, InputFe, omegaC, |
|
./pkg/dic/DIC_VARS.h |
152 |
NO PROCEDURE |
_RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/calcite_saturation.F |
127 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/dic/calcite_saturation.F |
155 |
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 |
52 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |