File |
Line number |
Procedure |
Code |
./pkg/bling/bling_airseaflux.F |
117 |
BLING_AIRSEAFLUX |
surfalk(i,j) = PTR_ALK(i,j,1) |
./pkg/bling/bling_airseaflux.F |
166 |
BLING_AIRSEAFLUX |
I surfsi(i,j),surfalk(i,j), |
./pkg/bling/bling_airseaflux.F |
85 |
BLING_AIRSEAFLUX |
_RL surfalk (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/dic/dic_surfforcing.F |
104 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
./pkg/dic/dic_surfforcing.F |
162 |
DIC_SURFFORCING |
I surfsi(i,j),surfalk(i,j), |
./pkg/dic/dic_surfforcing.F |
57 |
DIC_SURFFORCING |
_RL surfalk(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/dic/dic_surfforcing.F |
91 |
DIC_SURFFORCING |
surfalk(i,j) = max(0.4 _d 0, |
./pkg/dic/dic_surfforcing.F |
98 |
DIC_SURFFORCING |
surfalk(i,j) = PTR_ALK(i,j,klev) |
./pkg/dic/dic_surfforcing_init.F |
174 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = max(0.4 _d 0, |
./pkg/dic/dic_surfforcing_init.F |
181 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = PTRACER(i,j,kLev,bi,bj,2) |
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0 |
./pkg/dic/dic_surfforcing_init.F |
232 |
DIC_SURFFORCING_INIT |
I surfsi(i,j),surfalk(i,j), |
./pkg/dic/dic_surfforcing_init.F |
252 |
DIC_SURFFORCING_INIT |
& surfsi(iprt,jprt),surfalk(iprt,jprt) |
./pkg/dic/dic_surfforcing_init.F |
45 |
DIC_SURFFORCING_INIT |
_RL surfalk(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |