| File |
Line number |
Procedure |
Code |
|
./pkg/dic/car_flux.F |
51 |
CAR_FLUX |
INTEGER I,J,k, ko |
|
./pkg/dic/car_flux.F |
67 |
CAR_FLUX |
Do ko=k+1,Nr |
|
./pkg/dic/car_flux.F |
68 |
CAR_FLUX |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux.F |
69 |
CAR_FLUX |
depth_u=-rF(ko) |
|
./pkg/dic/car_flux.F |
71 |
CAR_FLUX |
& drF(ko)*hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
74 |
CAR_FLUX |
if (ko.eq.Nr) then |
|
./pkg/dic/car_flux.F |
77 |
CAR_FLUX |
if (hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/car_flux.F |
83 |
CAR_FLUX |
cflux(i,j,ko)=cflux(i,j,ko) + |
|
./pkg/dic/car_flux.F |
84 |
CAR_FLUX |
& ( (Flux_u-Flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/car_flux.F |
87 |
CAR_FLUX |
if (ko.eq.k+1) cflux(i,j,k)=cflux(i,j,k) |
|
./pkg/dic/phos_flux.F |
53 |
PHOS_FLUX |
INTEGER I,J,k, ko |
|
./pkg/dic/phos_flux.F |
70 |
PHOS_FLUX |
Do ko=k+1,Nr |
|
./pkg/dic/phos_flux.F |
71 |
PHOS_FLUX |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
depth_u=-rF(ko) |
|
./pkg/dic/phos_flux.F |
74 |
PHOS_FLUX |
& drF(ko)*hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
78 |
PHOS_FLUX |
if (ko.eq.Nr) then |
|
./pkg/dic/phos_flux.F |
81 |
PHOS_FLUX |
if (hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/phos_flux.F |
87 |
PHOS_FLUX |
pflux(i,j,ko)=pflux(i,j,ko) + |
|
./pkg/dic/phos_flux.F |
88 |
PHOS_FLUX |
& ( (Flux_u-Flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/phos_flux.F |
91 |
PHOS_FLUX |
if (ko.eq.k+1) pflux(i,j,k)=pflux(i,j,k) |