| File |
Line number |
Procedure |
Code |
|
./pkg/dic/phos_flux.F |
37 |
PHOS_FLUX |
_RL pflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/phos_flux.F |
87 |
PHOS_FLUX |
pflux(i,j,ko)=pflux(i,j,ko) + |
|
./pkg/dic/phos_flux.F |
8 |
PHOS_FLUX |
SUBROUTINE PHOS_FLUX( bioac, pflux, |
|
./pkg/dic/phos_flux.F |
91 |
PHOS_FLUX |
if (ko.eq.k+1) pflux(i,j,k)=pflux(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
107 |
DIC_BIOTIC_FORCING |
pflux(i,j,k)=0.d0 |
|
./pkg/dic/dic_biotic_forcing.F |
149 |
DIC_BIOTIC_FORCING |
CALL PHOS_FLUX( bioac, pflux, |
|
./pkg/dic/dic_biotic_forcing.F |
162 |
DIC_BIOTIC_FORCING |
bio(i,j,k)=-bioac(i,j,k)+pflux(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
85 |
DIC_BIOTIC_FORCING |
_RL pflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |