| File |
Line number |
Procedure |
Code |
|
./pkg/dic/dic_biotic_forcing.F |
100 |
DIC_BIOTIC_FORCING |
_RL freefe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
127 |
DIC_BIOTIC_FORCING |
freefe(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
159 |
DIC_BIOTIC_FORCING |
CALL FE_CHEM(bi,bj,iMin,iMax,jMin,jMax, PTR_FE, freefe, |
|
./pkg/dic/dic_biotic_forcing.F |
239 |
DIC_BIOTIC_FORCING |
& -Kscav*freefe(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
288 |
DIC_BIOTIC_FORCING |
call FE_CHEM(bi,bj,iMin,iMax,jMin,jMax, PTR_FE, freefe, |
|
./pkg/dic/fe_chem.F |
11 |
FE_CHEM |
I fe, freefe, |
|
./pkg/dic/fe_chem.F |
39 |
FE_CHEM |
_RL freefe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/fe_chem.F |
82 |
FE_CHEM |
freefe(i,j,k) = tmpfe -FeL |
|
./pkg/dic/fe_chem.F |
84 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
88 |
FE_CHEM |
thx=freefe(i,j,k) |
|
./pkg/dic/fe_chem.F |
91 |
FE_CHEM |
freefe(i,j,k) = |
|
./pkg/dic/fe_chem.F |
96 |
FE_CHEM |
freefe(i,j,k) = MIN(freefe(i,j,k),freefemax) |
|
./pkg/dic/fe_chem.F |
98 |
FE_CHEM |
fe(i,j,k) = FeL+freefe(i,j,k) |