| File |
Line number |
Procedure |
Code |
|
./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 |
113 |
CAR_FLUX |
cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/car_flux.F |
114 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
125 |
CAR_FLUX |
ko = Nr |
|
./pkg/dic/car_flux.F |
129 |
CAR_FLUX |
cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/car_flux.F |
130 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
52 |
CAR_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/car_flux.F |
92 |
CAR_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/dic/car_flux.F |
93 |
CAR_FLUX |
kop1 = MIN(Nr,ko+1) |
|
./pkg/dic/car_flux.F |
99 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) |
|
./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 |
107 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) 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 |
131 |
CAR_FLUX_OMEGA_TOP |
dumrate = -1.0d0*DissolutionRate*drF(ko)* |
|
./pkg/dic/car_flux_omega_top.F |
132 |
CAR_FLUX_OMEGA_TOP |
& hFacC(i,j,ko,bi,bj)/WsinkPIC |
|
./pkg/dic/car_flux_omega_top.F |
143 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) |
|
./pkg/dic/car_flux_omega_top.F |
148 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,ko)=cflux(i,j,ko) + |
|
./pkg/dic/car_flux_omega_top.F |
149 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
158 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.k+1) then |
|
./pkg/dic/car_flux_omega_top.F |
54 |
CAR_FLUX_OMEGA_TOP |
INTEGER I,J,k, ko |
|
./pkg/dic/car_flux_omega_top.F |
92 |
CAR_FLUX_OMEGA_TOP |
Do ko=k+1,Nr |
|
./pkg/dic/car_flux_omega_top.F |
93 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
94 |
CAR_FLUX_OMEGA_TOP |
if (ko .eq. k+1) then |
|
./pkg/dic/phos_flux.F |
101 |
PHOS_FLUX |
depth_l = -rF(ko) + drF(ko) |
|
./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 |
119 |
PHOS_FLUX |
pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/phos_flux.F |
120 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
121 |
PHOS_FLUX |
exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j) |
|
./pkg/dic/phos_flux.F |
132 |
PHOS_FLUX |
ko = Nr |
|
./pkg/dic/phos_flux.F |
136 |
PHOS_FLUX |
pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l) |
|
./pkg/dic/phos_flux.F |
137 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
138 |
PHOS_FLUX |
exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j) |
|
./pkg/dic/phos_flux.F |
53 |
PHOS_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/phos_flux.F |
94 |
PHOS_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/dic/phos_flux.F |
95 |
PHOS_FLUX |
kop1 = MIN(Nr,ko+1) |