| File |
Line number |
Procedure |
Code |
|
./pkg/bling/bling_dvm.F |
143 |
BLING_DVM |
depth_l=-rF(k+1) |
|
./pkg/bling/bling_dvm.F |
148 |
BLING_DVM |
if ( abs(depth_l) .lt. 35.) then |
|
./pkg/bling/bling_dvm.F |
153 |
BLING_DVM |
if ( (abs(depth_l) .gt. 140.0 _d 0) .and. |
|
./pkg/bling/bling_dvm.F |
154 |
BLING_DVM |
& (abs(depth_l) .lt. 515. _d 0)) then |
|
./pkg/bling/bling_dvm.F |
71 |
BLING_DVM |
_RL depth_l |
|
./pkg/bling/bling_remineralization.F |
164 |
BLING_REMIN |
depth_l=-rF(k+1) |
|
./pkg/bling/bling_remineralization.F |
165 |
BLING_REMIN |
IF (depth_l .LE. wsink0z) THEN |
|
./pkg/bling/bling_remineralization.F |
168 |
BLING_REMIN |
wsink = wsinkacc * (depth_l - wsink0z) + wsink0_2d(i,j,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
91 |
BLING_REMIN |
_RL depth_l |
|
./pkg/dic/car_flux.F |
100 |
CAR_FLUX |
reminFac = exp(-(depth_l-zbase)/zca) |
|
./pkg/dic/car_flux.F |
107 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
108 |
CAR_FLUX |
reminFac = exp(-(depth_l-zbase)/zca) |
|
./pkg/dic/car_flux.F |
56 |
CAR_FLUX |
_RL depth_l |
|
./pkg/dic/car_flux.F |
99 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) |
|
./pkg/dic/phos_flux.F |
101 |
PHOS_FLUX |
depth_l = -rF(ko) + drF(ko) |
|
./pkg/dic/phos_flux.F |
104 |
PHOS_FLUX |
reminFac = exp(-Kremin*log(depth_l/zbase)) |
|
./pkg/dic/phos_flux.F |
111 |
PHOS_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
114 |
PHOS_FLUX |
reminFac = exp(-Kremin*log(depth_l/zbase)) |
|
./pkg/dic/phos_flux.F |
57 |
PHOS_FLUX |
_RL depth_l |