| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_adv_front.F |
156 |
STREAMICE_ADV_FRONT |
href = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
165 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i-1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
177 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
189 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j-1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
201 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
209 |
STREAMICE_ADV_FRONT |
href = href / n_flux_1 |
|
./pkg/streamice/streamice_adv_front.F |
214 |
STREAMICE_ADV_FRONT |
IF (hpot .eq. href) THEN ! cell is exactly covered, no overflow |
|
./pkg/streamice/streamice_adv_front.F |
216 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
219 |
STREAMICE_ADV_FRONT |
ELSEIF (hpot .lt. href) THEN ! cell still unfilled |
|
./pkg/streamice/streamice_adv_front.F |
224 |
STREAMICE_ADV_FRONT |
area_shelf_streamice (i,j,bi,bj) = partial_vol / href |
|
./pkg/streamice/streamice_adv_front.F |
225 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
236 |
STREAMICE_ADV_FRONT |
partial_vol = partial_vol - href * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
269 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href + partial_vol * |
|
./pkg/streamice/streamice_adv_front.F |
272 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
47 |
STREAMICE_ADV_FRONT |
_RL href, rho, partial_vol, tot_flux, hpot |