| File |
Line number |
Procedure |
Code |
|
./pkg/bbl/bbl_calc_rhs.F |
110 |
BBL_CALC_RHS |
kBot = kLowC(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
111 |
BBL_CALC_RHS |
IF ( kBot .GT. 0 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
115 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) - bbl_wvel * dTtracerLev(kBot) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
66 |
BBL_CALC_RHS |
INTEGER i, j, d, r, kBot, kLowC1, kLowC2, kl |
|
./pkg/bbl/bbl_calc_rhs.F |
89 |
BBL_CALC_RHS |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_calc_rhs.F |
90 |
BBL_CALC_RHS |
tLoc(i,j) = theta(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
91 |
BBL_CALC_RHS |
sLoc(i,j) = salt (i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
92 |
BBL_CALC_RHS |
rholoc(i,j) = rhoInSitu(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
93 |
BBL_CALC_RHS |
IF ( kBot .EQ. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
96 |
BBL_CALC_RHS |
rhoBBL(i,j) = rhoInSitu(i,j,kBot+1,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
34 |
BBL_INIT_VARIA |
INTEGER i,j,bi,bj,kBot |
|
./pkg/bbl/bbl_init_varia.F |
41 |
BBL_INIT_VARIA |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_init_varia.F |
42 |
BBL_INIT_VARIA |
bbl_theta(i,j,bi,bj) = theta(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
43 |
BBL_INIT_VARIA |
bbl_salt (i,j,bi,bj) = salt (i,j,kBot,bi,bj) |