| File |
Line number |
Procedure |
Code |
|
./pkg/bbl/BBL.h |
21 |
NO PROCEDURE |
_RL bbl_eta (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/bbl/BBL.h |
23 |
NO PROCEDURE |
COMMON /BBL_STATE_2D/ bbl_theta, bbl_salt, bbl_eta, bbl_rho_nr |
|
./pkg/bbl/bbl_calc_rhs.F |
114 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) = max ( 0. _d 0 , |
|
./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 |
118 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) .EQ. 0. _d 0 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
121 |
BBL_CALC_RHS |
bbl_eta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
138 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
139 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
174 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
175 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
186 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
187 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
212 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
213 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
214 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
218 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
221 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
224 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
240 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
241 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
276 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
277 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
288 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
289 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
314 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
315 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
316 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
320 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
323 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
326 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
343 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
344 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
379 |
BBL_CALC_RHS |
& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
380 |
BBL_CALC_RHS |
& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
391 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
392 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
417 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
418 |
BBL_CALC_RHS |
IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
419 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
423 |
BBL_CALC_RHS |
bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
426 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
429 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
445 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
446 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
481 |
BBL_CALC_RHS |
& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
482 |
BBL_CALC_RHS |
& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
493 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
494 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
519 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
520 |
BBL_CALC_RHS |
IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
521 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
525 |
BBL_CALC_RHS |
bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
528 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
531 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
541 |
BBL_CALC_RHS |
CALL EXCH_XY_RL( bbl_eta , myThid ) |
|
./pkg/bbl/bbl_diagnostics_state.F |
42 |
BBL_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( bbl_eta , 'BBLeta ', |
|
./pkg/bbl/bbl_init_varia.F |
44 |
BBL_INIT_VARIA |
bbl_eta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
68 |
BBL_INIT_VARIA |
& bbl_eta, 0, myThid ) |
|
./pkg/bbl/bbl_init_varia.F |
69 |
BBL_INIT_VARIA |
CALL EXCH_XY_RL( bbl_eta, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
129 |
BBL_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'bblEta ', bbl_eta, |
|
./pkg/bbl/bbl_read_pickup.F |
160 |
BBL_READ_PICKUP |
CALL EXCH_XY_RL( bbl_eta, myThid ) |
|
./pkg/bbl/bbl_write_pickup.F |
87 |
BBL_WRITE_PICKUP |
& bbl_eta, -j, myIter, myThid ) |